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NOMENCLATURE 


compressor flow area 
droplet project area 
acoustic speed 
drag coefficient 

drag coefficient corresponding to loss due to water film 
formed on blade surface 

drag coefficient corresponding to loss due to rough film 
surface of water on blade surface 

water vapor concentration 

water vapor concentration at droplet surface 

blade chord length 

specific heat at constant pressure 

specific heat of water 

humid heat for air-water mixture 

droplet diameter 

droplet diameter 

diffusivity 

equivalent diffusion ratio 

equivalent diffusion ratio at minimum loss point 
largest stable droplet, diameter 
Newton constant relating force and mass 

/ 

high pressure compressor 
heat transfer coefficient . 



h m mass transfer coefficient 

i incidence angle 

i* incidence angle at minimum loss point 

J constant relating heat and work 

K fl thermal conductivity of air 

K d thermal conductivity of gaseous film surrounding an 

evaporating droplet 

K y thermal conductivity of water vapor 

k thermal conductivity 

kg thermal conductivity of gaseous phase 

LPC low pressure compressor 

M absolute Mach number 

M assumed value of Mach number 

a 

M r relative Mach number 

M„ calculated vlaue of Mach number 

c 

m mass flow rate 

irifiim mass flow rate of water film formed on blade surface 

mw molecular weight 

N rotor rotational speed 

N d number of droplet 

Nu Nusselt number 

P Q1 total pressure at rotor inlet 

Pq 2 total pressure at rotor outlet 

Pq 3 total pressure at stator outlet • 

P 01 r relative total pressure at rotor outlet 

Pq 2 r relative total pressure at “rotor outlet 

Pq 2 ri ideal relative total pressure at rotor outlet 


xi 1 



V fi1m 


pressure ratio 

Prandtl number 

reference pressure 

static pressure at rotor inlet 

static pressure at rotor outlet 

static pressure at stator outlet 

gas constant 

reynolds number 

radius 

pitch 

Schmidt number 

Sherwood number 

stability number 

static temperature 

total temperature 

reference temperature 

relative total temperature at rotor inlet 

relative total temperature at rotor outlet 

temperature ratio 

blade tip speed 

blade speed 

axial velocity 

absolute velocity 

tangential component of absolute yelocity 
velocity of film formed on blade surface 
relative velocity 

xi ii 



“e 

tangential component of relative velocity 


We 

Weber number 


x g 

mass fraction of gas phase 


N, 

mass fraction of liquid phase 


Greek Letters 


a 

absolute flow angle 


3 

relative flow angle 


6 

bypass ratio 


Y 

specific heat ratio 


n 

aidabatic efficiency 


4H v 

latent heat of vaporization 


AH 0 

rise in total enthalpy 


AT o 

rise in total temperature 


4T 9 

rise in overall temperatrue of gaseous phase 


< 4T g>ht 

drop in temperature of gaseous phase due to heat 

transfer 

^ AT g^wk 

rise in temperature of gaseous phase due to work 

done 

AT w 

rise in overall temperature of droplet 


( AT w>ht 

rise in temperature of droplet due to heat transfer 

( AT w^wk 

rise in temperature of droplet due to work done 


6 

deviation angle 


6 

boundary layer displacement thickness 


6 

corrected pressure (<5=p/P re f) 


e 

boundary layer momentum thickness 


e 

corrected temperature (e=T/T re .p) 


V 

viscosity 


p 

density 
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surface tension of droplet 
solidity 

particulate liquid volume fraction 
equivalent temperature ratio 
flow coefficient 
equivalent pressure ratio 
rotor angular velocity 
total pressure loss coefficient 

total pressure loss coefficient across rotor due to gas 
phase 

total pressure loss coefficient across stator due to gas 
phase 

total pressure loss coefficient due to the increase of 
momentum thickness because of the eixstence of small droplets 
in the boundary layer over a rotor blade surface 

total pressure loss coefficient due to the increase of 
momentum thickness because of the existence of small droplets 
in the boundary layer over a stator blade surface 

total pressure loss coefficient due to the momentum gained by 
thick water film moving over a rotor blade surface 

total pressure loss coefficient due to the momentum gained by 
thick water film moving over a stator blade surface 

total pressure loss coefficient due to turbulent flow of mix- 
ture over the rough film surface of rotor blade 

total pressure loss coefficient due to turbulent flow of mix- 
ture over the rough film surface of stator blade 

total pressure loss coefficient due to the Stokesian drag of 
droplets in rotor passage 

total pressure loss coefficient due to the Stokesian drag of 
droplets in stator passage 



Subscri pts 


a 

pertaining to 

c 

pertaining to 

D 

pertaining to 

g 

pertaining to 
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pertaining to 
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pertaining to 
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pertaining to 

ref 

pertaining to 

R 

pertaining to 

S 

pertaining to 

w 

pertaining to 

0 

pertaining to 

1 

pertaining to 

2 

pertaining to 

3 

pertaining to 


assumed value 
calculated value 
design point 
gas phase 
ideal process 
liquid phase 
mixture 

relative value with respect to rotor 

reference value 

rotor 

stator 

water droplet 
stagnation value 
rotor inlet 
rotor outlet 
stator outlet 
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SUMMARY 


A model for predicting the performance of a multi -spool axial -flow 
compressor with a fan during operation with water ingestion has been 
developed incorporating several two-phase fluid flow effects as follows: 
(i) ingestion of water, (ii) droplet interaction with blades and result- 
ing changes in blade characteristics, (iii) redistribution of water and 
water vapor due to centrifugal action, (iv) heat and mass transfer pro- 
cesses and (v) droplet size adjustment due to mass transfer and mechani- 
cal stability considerations. A computer program, called the PURDU-WINCOF 
code, has been generated based on the model utilizing a one-dimensional 
formulation. An illustrative case serves to show the manner in which 
the code can be utilized and the nature of the results obtained. 
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CHAPTER I 


INTRODUCTION 

Water ingestion into axial flow compressors that have been designed 
originally for operation with air flow causes considerable changes in 
performance compared with the performance obtained with air flow (Ref- 
erences 1-8). These changes affect the performance, operation and 
control of an aircraft gas turbine engine when the compressor is part 
of such an engine (Reference 9). 

A model for the prediction of performance of axial-flow compressors 
has been generated (References 3 and 4) which incorporates the following 
two-phase flow-associated processes: 

(i) ingestion of water; 

(ii) droplet interaction with blades and resulting changes in blade 
characteristics 

(iii) redistribution of water and water vapor due to centrifugal 
action; 

(iv) heat and mass transfer processes; and 

(v) droplet size adjustment due to mass transfer and mechanical 
stability considerations. 

A numerical-computational program for prediction of compressor performance 
has been generated, called the PURDU-WICSTK program (Reference 4). It is 
applicable to a (single spool) compressor with a constant mass flow be- 
tween the inlet and outlet sections of the unit. 

It is of interest to generate a similar numerical -computational pro- 
cedure for use in the case of a multi-spool compressor with a fan. In 
this case, the spools generally operate at different speeds and the mass 
flow in the compressor stages (low pressure compressor, the LPC, and 
high pressure compressor, the HPC) differs from the mass flow at inlet 
to the fan depending upon the bypass ratio employed. A computer code 
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has been designed for this purpose, namely the PURDU-WINCOF code, and 
the current report is devoted to a description of that code. 

1.1 Compressor Utilized for Illustrating the Use of the PURDU-WINCOF 
Code 

In order to illustrate the manner in which the PURDU-WINCOF code 
can be utilized, a typical fan-compressor unit has been chosen. Details 
regarding the unit are provided in Appendix 1 to this report. 

1.2 Outline of the Report 

A brief description of the PURDU-WINCOF program is provided in 
Chapter II. The subroutines and external functions of the code are 
listed in Chapter III. Chapters IV and V provide the details of the 
input data and the output, respectively. The method of calculation and 
the nature of the results are illustrated by means of a test case in 
Chapter VI. 


2 



CHAPTER II 


OVERALL PROGRAM DESCRIPTION 

The PURDU-WINCOF program for the prediction of performance of a 
fan-compressor unit with water injestion is based on the PURDU-WICSTK 
program (Reference 4) generated for use with a (single spool) constant 
(mixture) mass flow compressor. 

Following a brief description of the PURDU-WICSTK program (Section 
2.1), the major modifications introduced in the PURDU-WINCOF program are 
presented (Section 2.2). 

2.1 The PURDU-WICSTK Code 

The one-dimensional flow equations for two phase flow in axial com- 
pressors have been derived in detail and presented in Reference 3. Those 
equations are suitable for the calculation of performance of any chosen 
section along the span of an axial compressor blade row. The PURDU-WICSTK 
code is based on those equations. For given initial conditions at the 
entry to a stage, the outlet conditions can be calculated using those 
equations. 

The PURDU-WICSTK code deals with a fluid that may consist of (a) a 
mixture of three different gases and (b) a mixture of two types of water 
droplets, distinguished by size. The mixture of gases may consist of 
air and water vapor along with another gas when necessary. The water 
droplets may be either "small" or "large" diameter droplets or a mixture 
of small and large droplets. Small droplets are defined as those that 
follow the gas flow path and hence absorb work input into the compressor 
along with the gaseous phase. Large droplets are assumed to move largely 
independently of the gas phase, with equal probability of motion in all 
directions, and without abosrbing work input but introducing drag losses. 
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Currently one can only choose the sizes for small and large droplets in 
an arbitrary fashion; for example if small droplets are assumed to be of 
mean diameter equal to 10 ym; large droplets may be assigned a mean size 
of about 1 ,000 ym in diameter. In a general two-phase mixture that may 
become the working fluid in a compressor, the proportion of various con- 
stituents, namely, different gases (e.g. air and water vapor) and two 
types of droplets may be chosen as desired in the initial conditions 
assumed for a calculation. Thus, to consider humid air carrying large 
droplets, the content of small droplets is set equal to zero while water 
vapor content is related to humidity. 

The performance of a stage of a compressor is based in the PURDU- 
WICSTK code on five physical models as follows: 

(i) model for the calculation of stage performance with respect 
to the gaseous phase and water droplets; 

(ii) model for droplet motion across a blade row from a chosen 
upstream location to a designated downstream location; 

(iii) model for centrifuging of water droplets; 

(iv) model for heat and mass transfer processes between the 
two phases; and 

(v) model for droplet break-up and equilibrium with respect to 
size. 

The foregoing five models have been described in detail in References 
3 and 4. A further description is included in Appendix 2 of this report 
regarding the models for the calculation of stage performance with respect 
to gaseous phase and the air-water droplet mixture. 

The performance of a stage is calculated for given initial and 
operating conditions including the state of the air-water droplet mix- 
ture. Regarding droplets, any fraction of their total number may be 
taken into account depending upon assumptions relating to droplet im- 
pingement and rebound processes. Then, at the exit of a blade row, the 
three major processes, namely (i) centrifugal action on droplets, (ii) 
heat and mass transfer processes between the two phases and (iii) drop- 
let size adjustment, are taken into account. When the stage performance 
parameters are "corrected" for the afore-mentioned three processes, one 
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obtains the final outlet conditions from a stage. The outlet conditions 
from a stage are modified to account for the geometry of compressor in 
order to obtain the initial conditions for the next stage, where such 
exists. Calculations are repeated for subsequent stages based on the 
well-known concept of stage-stacking. The Code can be used to predict 
the design point performance as well as off-design performance of a multi- 
stage compressor. 

2.2 Modifications Introduced in the PURDU-WINCOF Code 

In the fan-compressor unit, with two spools operating at speeds N-| 
and N 2 and with a bypass ratio of g the five streamtubes illustrated in 
Figure 2. 1, represent the five typical streamtubes along which it is of 
interest to establish the fan-compressor performance. 

In the one-dimensional formulation adopted in the PURDU-WICSTK and 
also the PURDU-WINCOF codes, the streamtubes along which the calculations 
are desired to be performed have to be pre-located in the unit; and their 
area changes along the flow path have also to be specified on an appro- 
priate basis. Regarding the latter, in most cases, the variation of 
annulus area of the machine is known at least corresponding to the 
design point conditions and this variation of area along the flow path 
may have to be assumed as applicable under off-design conditions. The 
extent of the resulting errors that arise on account of such assumptions 
depends upon the nature of the stage aerodynamic characteristics. 

The major modifications introduced in the PURDU-WINCOF code consist 
of the following changes from one stage to the next: 

(i) modification for speed changes and 
(ii) modification for mass flow changes. 

2.2.1 Modification for Speed 

The operational speeds can be specified by the following input 
parameters: 

FND: rotor rotational speed in Fan 

FNDLPC: rotor rotational speed in LPC 

FNDHPC: Rotor rotational speed in HPC 
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NSF: number of stages in Fan 

NSLPC: number of stages in LPC 

NSHPC: number of stages in HPC 

Utilizing those parameters, the operational speed can be set at the de- 
sired value for the next stage as follows: 

(i) Rotor speed = FND when 
1 ^ stage ^ NSF 

(ii) Rotor speed = FNDLPC when 

(NSF + 1) | stage * (NSF + NSLPC) 

(iii) Rotor speed = FNDHPC when 

(NSF + NSLPC + 1) < stage s (NSF + NSLPC + NSHPC) 

2.2.2 Modification for Mass Flow Change 

The mass flow rate can be altered at the entry to the next stage. 

In particular at the entry to the low pressure compressor following the 
fan stages, the mass flow into the low pressure compressor can be ad- 
justed by utilizing the specified value of bypass ratio, s, as follows: 
m c = m p /(l +0) 

where m c and m F represent the mass flow rate in the fan part and compres- 
sor part, respectively. 
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CHAPTER III 


SUBROUTINES AND EXTERNAL FUNCTIONS 

There are 22 subroutines and 13 external functions in this program. 

The following is the list of subroutines and external functions. Only 

brief descriptions of these subprograms are given here. A more detailed 

description of each subprogram is presented in Appendix 3. 

Subroutine WICSPB : calculation of stage performance based on the 

analytical/correlation method for small droplet. 

Subroutine WICSPC : calculation of stage performance based on the 

analytical /correlation method for large droplet. 

Subroutine WICSPD : calculation of design point performance. 

Subroutine WICGSL : calculation of single-phase (gas) flow loss. 

Subroutine WICSDL : calculation of loss for small droplets on account 

of the change in momentum thickness of boundary layer due to the 
presence of such droplets. 

Subroutine WICSTL : calculation of loss due to Stokesian drag of drop- 

lets in the free stream of blade passage. 

Subroutine WICFML : calculation of loss due to film formed on blade 

surface when large droplets are present either by themselves or 
along with small droplets. 

Subroutine WICRSL :, calculation of loss due to the rough surface when 
large droplets are present either by themselves or along with 
small droplets. 

Subroutine WICCEN : calculation of swanwise replacement of droplets due 

to centrifugal action. 

Subroutine WICDMS : calculation of amount of small droplets which is 

centrifuged. 


\ 


7 



Subroutine WICDML : calculation of amount of large droplets which is 

centrifuged. 

Subroutine WICDRG : calculation of drag force on droplet. 

Subroutine WICMAC : calculation of Maqh number. 

Function WICASD : calculation of acoustics speed in two phase flow. 

Function MICED : calculation of equivalent diffusion. 

Function WICMTK : calculation of dimensionless momentum thickness. 

Function WICLOS : calculation of total pressure loss coefficient. 

Subroutine WICIRS : calculation of droplet impingement and rebound in 

rotor for small droplet. 

Subroutine WICIRL : calculation of droplet impingement and rebound in 

rotor for large droplet. 

Subroutine WICISS : calculation of droplet impingement and rebound in 

stator for small droplet. 

Subroutine WICISL : calculation of droplet impingement and rebound in 

stator for large droplet. 

Subroutine MICWAK : calculation of water reingestion into wake. 

Subroutine WICHET : calculation of heat transfer between gaseous phase 

and droplets. 

Subroutine WICMAS : calculation of mass transfer between gaseous phase 

and droplets. 

Function WICMTR : calculation of mass transfer rate. 

Function WICPWB : calculation of vapor pressure. 

Function WICNEM : calculation of new trial value in the iterative 

procedure. 

Function WICTAN : calculation of the value of tangent function. 

Function WICBPT : calculation of boiling point. 

Function WICSH : calculation of specific humidity. 

Subroutine WICSIZ : calculation of nominal droplet size. 

Subroutine WICPRP : calculation of flow properties for gaseous phase. 

Function WICCPA : calculation of specific heat at constant pressure 

for air. 

Function WICCPH : calculation of specific heat at constant pressure 

for vapor. 

Function WICCPC : calculation of specific heat at constant pressure 

for methane. 
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CHAPTER IV 


INPUT DATA 

All input data that are needed to utilize the PURDU-WINCOF computer 
code are described in this section. The input data are presented in the 
same sequence as they are used in the program. Presently all input data 
must be in English units unless noted otherwise: 

The following is a listing of the input data as they read in MAIN. 
Figures 4.1 and 4.2 show the geometry of a compressor stage and angles 
associated with a typical rotor blade element. 


Card 

No. 

Input 

Data 

Comment 

Format 

~ 1 

NS 

number of stages 

12 

1 

NSF 

number of fan stages 

12 

1 

NSLPC 

number of low pressure compressor 
stages 

12 

_ 1 

NSHPC 

number of high pressure 
compressor stages 

12 

2 

RRHUB(I) 

hub radius at Ith stage rotor 
inlet. I = 1 ^ NS 
Unit: inch 

F5.3 

3 

RC ( I ) 

chord length of Ith stage rotor 
I = 1 * NS 
Unit: inch 

F5.3 

4 

RBLADE(I) 

number of blades for Ith stage 
rotor. 1=1^ NS 

F5.2 

5 

STAGER(I) 

stager angle for Ith stage rotor. 
I = 1 * NS 
Unit: degree 

F5.2 
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Card 

Input 



No. 

Data 

Comment 

Format 

6 

SRHUB(I) 

hub radius at Ith stage stator inlet. 
I = 1 * NS, I = NS + 1 for IGV 
Unit: inch 

F5.3 

7 

sc(i) 

chord length of Ith stage stator. 
1=1^ NS, I = NS + 1 for IGV 
Unit: inch 

F5.3 

8 

SBLADE(I) 

number of blades for Ith stage stator. 
I = 1 ^ NS, I = NS +1 for IGV 

F5.2 

9 

STAGES(I) 

stager angle for Ith stage stator. 
I = 1 NS, I = NS + 1 for IGV 
Unit: degree 

F5.2 

10 

SIGUMRO) 

solidity of Ith stage rotor 

F5.3 

11 

SIGUMS(I) 

solidity of Ith stage stator 
I = 1 'v NS, I = NS + 1 for IGV 

F5.3 

12 

BET2SSU) 

stator outlet absolute flowangle 
at design pt. for Ith stage. 

I = 1 'v NS, I = NS + 1 for IGV 
Unit: degree 

F5.2 

13 

FNF 

fraction of design corrected rotor 
speed for a particular speed 

F8.2 

14 

XDIN 

initial water content (mass fraction) 
of small droplets. 

F5.3 

14 

I CENT 

index for centrifugal calculation of 
small droplets. 

11 



ICENT = 1 when XDIN =0.0 
otherwise ICENT = 2 
ICENT = 3: no heat and mass transfer 

ICENT =4: no centrifugal action 

ICENT =5: no heat and mass transfer 




and no centrifugal action 




ICENT =6: no mass transfer 
ICENT =7: no mass transfer and 




no centrifugal action 


14 

XDDIN 

initial water content (mass fraction) 
of large droplets. 

F5.3 
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Card 

Input 



No. 

Data 

Comment 

Format 

14 

1 1 CENT 

index for centrifugal calculation 
of large droplets. 

1 1 CENT = 1 when XDDIN = 0.0 
otherwise IICENT = 2 
IICENT =3: no heat and mass transfer 

IICENT = 4: no centrifugal action 

IICENT =5: no heat and mass transfer 

11 



and no centrifugal action 




IICENT =6: no mass transfer 
IICENT =7: no mass transfer and 




no centrifugal action 


14 

ICENTV 

index for centrifugal calculation 

11 



of water vapor 

ICENTV = 0: vapor is centrifuged 

ICENTV = 1: vapor is not centrifuged 


15 

TOG 

total temperature of gas phase 
at compressor inlet 
Unit: Rankine 

F7.2 

15 

TOW 

temperature of droplet at compressor 
inlet. 

F7.2 



Unit: Rankine 


15 

PO 

total pressure at compressor inlet. 

F7.2 



Unit: lbf/ft2 


16 

DIN 

initial diameter of small droplets. 
Unit: ym 

F6.1 

_16 

DDIN 

initial diameter of large droplets. 

F6.1 



Unit: ym 


~ 1 7 

FND 

rotor corrected speed at design pt. 
Unit: RPM 

F7.1 

17 

TOID 

compressor inlet temperature at 
design pt. 

Unit: Rankine 

F7.2 

17 

POID 

compressor inlet pressure at 
design pt. 

Unit: lbf/in 2 

F7.2 

17 

FNDLPC 

rotor corrected speed of LPC at 
design pt. 

Unit: RPM 

F7.1 
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Comment 


Format 


Card Input 

No. Data 


17 FNDHPC rotor corrected speed of HPC at F7.1 

design pt. 

Unit: RPM 


18 

. XCH4 

initial methane content (mass fraction) 

F5.3 

18 

RHUMID 

initial relative humidity 

FI 0.5 


' 

Unit: percent 


19 

FMWA 

molecular weight of air 

F7.3 

19 

FMWV 

molecular weight of steam 

F7.3 

J9 

FMWC 

molecular weight of methane 

F7.3 

20 

PREB 

percent of water droplets that 
rebound after impingement on blade 
surface 

F5.1 

20 

DLIMT 

maximum diameter for small droplets 
Unit: um 

F7.1 

21 

GAPR(I) 

gap between Ith stage rotor and 
(I - 1 ) th stage stator. 

I = 1 ^ NS 
Unit: inch 

F7.5 

22 

GAPS ( I ) 

gap between rotor blade and stator 
blade for Ith stage 
I = 1 ^ NS 
Unit: inch 

F7.5 

23 

RRTIP(I) 

blade tip radius at Ith stage 
rotor inlet. 

I - 1 «\# NS 
Unit: inch 

F6.3 

24 

SRTIP(I) 

blade tip radius at Ith stage 
stator inlet. 

I = 1 % NS, I = NS + 1 for IGV 
Unit: inch 

F6.3 

25 

I RAD 

index for radius at which calculation 
is carried out. 

IRAD = 1: performance at fan tip 

IRAD = 2: performance at HPC mean 

IRAD = 3: performance at hub 

IRAD = 4: performance at tip 

of HPC and LPC 

11 
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Card 

No. 

26 

27 

28 

29 

30 

31 

32 
. 33 

34 


Input 

Data 

RT(I) 
RM( I ) 
RH(I) 
ST( I) 
SM( I ) 


SH( I ) 


BLOCK(I) 

BLOCKS(I) 

IDESIN 


Comment 


rotor inlet radius at which tip 
performance calculation is carried out. 
I s K NS 
Unit: inch 

rotor inlet radius at which mean line 
performance calculation is carried out. 
I = 1 v NS 
Unit: inch 

rotor inlet radius at which hub 
performance calculation is carried out. 
I - 1 ^ NS 
Unit: inch 

stator inlet radius at which tip 
performance calculation is carried out. 
I = 1 % NS 
Unit: inch 

stator inlet radius at which mean line 
performance calculation is carried out. 
I = 1 ^ NS 
Unit: inch 

stator inlet radius at which hub 
performance calculation is carried out. 
I = 1 % NS 
Unit: inch 

blockage factor for Ith stage rotor. 

0 < BLOCK(I) <1 

1 = 1 ^ NS 

blockage factor for Ith stage stator 

0 < BLOCKS ( I ) < 1 

1 = 1 * NS, I = NS + 1 for IGV 

index for output. 

IDESIN = 1: both stage and overall 

performance printed out 
IDESIN = 2: only overall performance 

is printed out 


Format 

F5.3 

F5.3 

F5.3 

F5.3 

F5.3 

F5.3 

F5.3 

F5.3 

II 
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Card 

Input 



No. 

Data 

Comment 

Format 

34 

JCENT 

index for centrifugal calculation. 

JCENT = 1: large droplets in rotor free 

stream are centrifuged in same manner 
as small droplets. 

JCENT = 2 (or any other integer): large 

droplets are taken to have random motion 

11 

35 

BETIMR(I) 

blade metal angle at Ith stage rotor 
inlet. 

I = 1 * NS 
Unit: degree 

F5.2 

36 

BET2MR'( I ) 

blade metal angle at Ith stage 
rotor outlet. 

I = 1 ^ NS 
Unit: degree 

F5.2 

37 

BETIMS(I) 

blade metal angle at Ith stage 
stator inlet. 

I = 1 * NS, I = NS + 1 for IGV 
Unit: degree 

F5.2 

38 

BET2MS( I ) 

blade metal angle at Ith stage 
stator outlet. 

I = 1 * NS, I = NS + 1 for IGV 
Unit: degree 

F5.2 

39 

DSMASS 

streamtube design mass flow for fan. 
Unit: Ibm/s 

F10.6 

39 

BYPASS 

bypass ratio at design pt. 

F10. 6 

40 

PR! 2D ( I ) 

total pressure ratio for the Ith 
stage rotor at design pt. 

I = 1 'v NS 

F5.3 

41 

PR13D( I) 

total pressure ratio for Ith stage 
at design pt. 

1= 1 ^ NS 

F5.3 

42 

ETARD{ I ) 

adiabatic efficiency for Ith stage 
rotor. 

I = 1 * NS 

F5.3 
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Card 

No. 

Input 

Data 

Comment 

Format 

43 

SAREA(I) 

stream tube area for Ith stage 
rotor inlet. 

I = 1 % NS 
Unit: ft 2 

F10.7 

44 

SAREAS ( I ) 

stream tube area for Ith stage 
stator inlet. 

I = 1 a, NS, I = NS + 1 for IGV 
Unit: ft 2 

F10.7 

45 

FAI 

initial flow coefficient. The user 
can input as many FAI as one wants. 
However, each card must contain only 
one FAI and the last card must be 
9.99999. 

F7.5 
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CHAPTER V 


OUTPUT 

There are two kinds of output in this program code: regular output 
and diagnostic output. The regular output consists of four parts as 
follows: 

(1) output of the inputed data; 

(2) output of design point performance; 

(3) output of stage performance; and 

(4) output of overall performance. 

The user can choose the output by setting the value of the input data 
IDESIN to 1 or 2. By setting IDESIN equal to 1, the detailed output 
(output of (i) inputed data, (ii) design point performance, (iii) stage 
performance and (iv) overall performance) can be obtained. On the other 
hand, the user can obtain the simple output (output of (i) inputed data 
and (ii) overall performance) by setting IDESIN equal to 2. 

5.1 Output of Inputed Data 

All of the data inputed can be printed out at the beginning of out- 
put. 


5.2 Output of Design Point Performance 

5.2.1 Compressor Inlet (Design Point Performance) 

At the compressor inlet, the following properties can be 
printed out for the design point performance: 

(1) total temperature at compressor inlet: (R) 

(2) total pressure at compressor inlet: (Ibf/ft ) 
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(3) static temperature at compressor inlet: (R) 

o 

(4) static pressure at compressor inlet: (lbf/ft ) 

O 

(5) static density at compressor inlet: (lbm/ft ) 

(6) acoustic speed at compressor inlet: (ft/s) 

(7) axial velocity at compressor inlet: (ft/s) 

(8) Mach number at compressor inlet 

o 

(9) stream tube area at compressor inlet: (ft ) 

(10) flow coefficient at compressor inlet 

5.2.2 Stage Performance (Design Point Performance) 

At the end of each stage, the following properties can be 
printed out for the design point performance: 

(1) total temperature: (R) 

(2) total pressure: (lbf/ft 2 ) 

(3) static temperature: (R) 

(4) static pressure: (lbf/ft 2 ) 

(5) static density: (lbm/ft 3 ) 

(6) axial velocity: (ft/s) 

(7) absolute velocity: (ft/s) 

(8) relative velocity: (ft/s) 

(9) tangential component of absolute velocity: (ft/s) 

(10) tangential component of relative velocity: (ft/s) 

(11) rotor wheel speed: (ft/s) 

(12) absolute Mach number 

(13) relative Mach number 

(14) total temperature based on relative Mach number: (R) 

(15) total pressure based on relative Mach number: (lbf/ft ) 

(16) absolute flow angle: (degree) 

(17) relative flow angle: (degree) 

(18) stream tube area: (ft ) 

(19) radius at which calculation is carried out: (ft) 

(20) flow coefficient 

(21) stage total pressure ratio 

(22) stage adiabatic efficiency 
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(23) rotor total pressure ratio 

(24) rotor adiabatic efficiency 

(25) stage total temperature ratio 

5.2.3 Overall Performance (Design Point Performance) 

After all of stage performance is printed out, the following 
porperties can be printed out: 

(1) compressor inlet total temperature: (R) 

(2) compressor inlet total pressure: (Ibf/ft ) 

(3) corrected mass flow rate: (Ibm/s) 

(4) overall total pressure ratio 

(5) overall total temperature ratio 

(6) overall adiabatic efficiency 

(7) overall temperature rise: (F) 

(8) relative flow angle at rotor inlet: BETISR(I) (degree) 

(9) relative flow angle at rotor outlet: BET2SR(I) (degree) 

(10) incidence for rotor: AINCSR(I) (degree) 

(11) deviation for rotor: ADEVSR(I) (degree) 

(12) absolute flow angle for stator inlet: BETISS(I) (degree) 

(13) absolute flow angle for stator outlet: BET2SS(I) (degree) 

(14) incidence for stator: AINCSS ( I ) (degree) 

(15) deviation for stator: ADEVSS(I) (degree) 

(16) stage inlet temperature: TD(I) (R) 

(17) total pressure loss coefficient for stator: OMEGS(I) 

(18) total pressure loss coefficient for rotor: OMEGR(I) 

(19) momentum thickness for rotor: SITADR(I) 

(20) momentum thickness for stator: SITADS(I) 

(21) equivalent diffusion ratio for rotor: DEQR(I) 

(22) equivalent diffusion ratio for stator: DEQS(I) 

5.3 Output of Stage Performance 

The performance of a stage is calculated for given initial and 
operating conditions with respect to the gaseous phase and the water 
droplets. At the exit of a blade row, the four major processes associated 
with two phase flow, namely (a) droplet impingement process; (b) centrifugal 
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action on droplets; (c) heat and mass transfer processes between the 
two phases; and (d) droplet size adjustment; are taken into account. 
When the stage performance parameters are corrected for the afore-men- 
tioned four processes, then one obtains the outlet conditions from a 
stage. The output of stage performance consist of two parts. First 
the following properties can be printed out before the afore-mentioned 
four processes are taken into account. 

(1) stage total pressure ratio 

(2) stage total temperature ratio 

(3) stage adiabatic efficiency 

(4) stage flow coefficient 

(5) axial velocity: (ft/sec) 

(6) rotor speed: (ft/sec) 

(7) total pressure: (lbf/ft^) 

(8) static pressure: (lbf/ft^) 

(9) total temperature of gas phase: (R) 

(10) static temperature of gas phase: (R) 

(11) static density of gas phase: (Ibm/ft ) 

O 

(12) static density of mixture: (Ibm/ft ) 

(13) axial velocity: (ft/s) 

(14) absolute velocity: (ft/s) 

(15) relative velocity: (ft/s) 

(16) blade wheel speed: (ft/s) 

(17) tangential component of absolute velocity: (ft/s) 

(18) tangential component of relative velocity: (ft/s) 

(19) acoustic speed: (ft/sec) 

(20) absolute Mach number 

(21) relative Mach number 

(22) flow coefficient 

o 

(23) stream tube area: (ft ) 

(24) absolute flow angle: (degree) 

(25) relative flow angle: (degree) 

(26) incidence: (degree) 

(27) deviation: (degree) 
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(28) equivalent diffusion ratio 

(29) momentum thickness 

(30) pressure loss coefficient of gas only calculation 

(31) total pressure loss coefficient 

After the stage parameters are corrected for the afore-mentioned 
four processes, the following second parts of output of stage performance 
can be printed out. 

(1) stage total pressure ratio 

(2) stage total temperature ratio 

(3) stage adiabatic efficiency 

(4) water vapor content: XV 

(5) water content of small dorplet: XW 

(6) water content of large droplet: XWW 

(7) total water content: XWT 

(8) mass fraction of dry air: XAIR 

(9) mass fraction of methane: XMETAN 

(10) mass fraction of gaseous phase: XGAS 

(11) mass flow rate of small droplet: WMASS(lbm/s) 

(12) mass flow rate of large droplet: WWMASS(lbm/s) 

(13) total mass flow rate of droplet: WTMASS(lbm/s) 

(14) mass flow rate of dry air: AMASS (Ibm/s) 

(15) mass flow rate of methane: CHMASS(lbm/s) 

(16) mass flow rate of water vapor: VMASS(lbm/s) 

(17) mass flow rate of gaseous phase: GMASS(lbm/s) 

(18) mass flow rate of mixture: TMASS(lbm/s) 

(19) specific humidity: WS 

(20) density of air: RH0A(lbm/ft^) 

(21) density of mixture: RH0M(lbm/ft^) 

(22) density of gaseous phase: RH0G(lbm/ft 3 } 

(23) temperature of gaseous phase: TG (R) 

(24) temperature of small droplet: TW (R) 

(25) temperature of large droplet: TWW (R) 

(26) pressure: P( 1 bf/ft 2 ) 

(27) boiling point: TB (R) 

(28) dew point: TDEW (R) 
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5.4 Output of Overall Performance 


At the end of compressor, the overall performance can be printed 
out according to the inputed value of IDES IN . If IDES IN=1 , the properties 
to be printed out are as follows: 

(1) initial flow coefficient 

(2) corrected speed of compressor and fraction of design corrected 
speed 

(3) initial water content of small droplet 

(4) initial water content of large droplet 

(5) initial total water content 

(6) initial relative humidity 

(7) initial methane content 

(8) compressor inlet total temperature: (R) 

(9) compressor inlet total pressure: (Ibf/ft ) 

(10) corrected mass flow rate of mixture: (lbm/s) 

(11) corrected mass flow rate of gaseous phase: (lbm/s) 

(12) overall total pressure ratio 

(13) overall total temperature ratio 

(14) overall adiabatic efficiency 

After the foregoing overall performance is printed out, the perfor- 
mance of ( i ) fan, (ii) low pressure compressor (LPC) and (iii) high 
pressure compressor (HPC) can be printed out and provide the following: 

(1) gas phase corrected mass flow; 

(2) total pressure ratio; 

(3) total temperature ratio; and 

(4) adiabatic efficiency. 

If I DES IN=2 the above is printed along with the following: 

(1) flow coefficient of stage: FAIO 

(2) stage 

(3) total pressure ratio of stage: PRATIO 

(4) total temperature ratio of stage: TRATIO 

(5) adiabatic efficiency of stage: ETA 

(6) water vapor content of stage: XV 

(7) water content of small droplet: XW 
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(8) water content of large droplet: XWW 

(9) total water content: XWT 

(10) temperature of gaseous phase: TG (R) 

(11) temperature of water droplet: TW (R) 

5.5 Diagnostic Printout 

At the inlet of each stage, the flow coefficient is calculated. If 
the flow coefficient gives the value of equivalent pressure ratio which 
is less than 1.0 or the value of stage adiabatic efficiency which is 
less than 0.0, the following message will appear: "FAI IS TOO BIG OR 

TOO SMALL AT STAGE=." If this message appears, the computation for the 
particular initial flow coefficient will be terminated and the next ini- 
tial flow coefficient will be read. 

The iterative procedure is used to determine the Mach number. If 
the desired accuracy can not be obtained after 50 times of iteration, 
the following message will appear: "M DOES NOT CONVERGE AT STAGE=." 

If this message appears, the final value of Mach number will be used 
and computation will be continued. 

When the axial velocity becomes either higher than local acoustic 
speed or negative, the following message will appear: "VZ IS TOO HIGH 

OF TOO LOW." If this message appears, the computation for the particu- 
lar initial flow coefficient will be terminated and the next initial 
flow coefficient will be read. 
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CHAPTER VI 


TEST CASE 

An illustrative example of the use of the PURDU-WINCOF code is 
presented in this chapter. The fan-compressor unit employed is described 
in Appendix 1. The operating conditions under which the performance 
calculation has been carried out are presented in Table 6.1. The outputs 
obtained from calculations performed along the streamtube no. 4 in Figure 
2.1 are presented in Appendix 5. 
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Table 6 

Operating Conditions for 

Parameter 

Corrected Speed 
Inlet Temperature 
Inlet Pressure 
Initial Droplet Diameter 
Humidity 
Water Content 


Flow Coefficient 


lustrative Examples 


Values 

100% Design Speed 

518.7 R 

14.7 psi 

20 pm, 600 pm 
0.00 

0.000 for Test Case No. 1 

0.010 for Test Case No. 2 

0.010 for Test Case No. 3 

but, neglecting mass transfer 
and only printing overall 
compressor performance. 

0.350 for Test Case Nos. 1, 2 
0.340 for Test Case No. 3 






FIGURES 
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Direction of Flow 



Fig. 4.2 Angles Associated with a Typical Rotor 
Blade Element 
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APPENDIX 1 



A fan-compressor unit with a fan, a low pressure compressor and a 
high pressure compressor has been chosen for the purpose of demonstrating 
the application of the PURDU-WINCOF Code. The overall design features 
fo the unit are as follows. 


Number of stages: 3 (Fan); 6 (LPC); and 7 (HPC) 

Design speed: 9492.1 RPM (Fan and LPC) 

14095.5 RPM (HPC) 

Design mass flow: 255.0 lbm/sec 

Design pressure ratio: 2.1948 (Fan); 2.6365 (LPC); and 

2.9823 (HPC) 

The basic design data are provided in Tables A.I.l and A. I. 2. 
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Table A.I.l 


Fan-Compressor Unit Design Data 
Stators 


The values given pertain to the mean section of the LPC and the HPC. 
FAN 


Stage 

Hub 

Radius 

Number 
of. Blades 

Design absolute 
inlet flowangle (a^) 

Design absolute 
outlet flowangle (a|) 

IGV 

6.220 

60 

0.00 

6.69 

1 

6.650 

60 

37.07 

6.21 

2 

6.965 

60 

36.40 

-1.49 

3 

7.025 

60 

27.17 

0.38 

Note : 

r in inches and a in 

degrees 
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Table A. 1.1 (continued) 


LPC 


Stage 

Hub 

Radius 

Number 
of Blades 

Design Absolute 
inlet flowangle (a|) 

Design Absolute 
outlet flowangle (a^) 

4 

7.025 

60 

26.78 

8.86 

5 

7.025 

60 

26.38 

1.41 

6 

7.025 

60 

32.68 

6.55 

7 

7.025 

60 

28.41 

5.24 

8 

7.025 

60 

37.70 

16.23 

9 

7.130 

60 

36.82 

16.50 


Note: r in inches and a in degrees 
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Table A. 1.1 (concluded) 


HPC 


Stage 

Hub 

Radius 

Number 
of Blades 

Design absolute 
inlet flowangle (a|) 

Design absolute 
outlet flowangle (,a|) 

10 

7.449 

60 

36.41 

22.78 

11 

7.674 

60 

41.62 

24.28 

12 

7.873 

60 

42.63 

25.79 

13 

8.053 

60 

41.94 

23.93 

14 

8.201 

60 

44.03 

20.90 

15 

8.311 

60 

38.84 

16.87 

16 

8.378 

60 

40.40 

3.03 


Note: r in inches and a in degrees 
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Table A. 1.2 


Fan-Compressor Unit Design Data 
Rotors 


The values given pertain to the mean section of the LPC and the HPC. 


FAN 


Stage 

Hub 

Radius 

Number 
of Blades 

Design relative 
inlet flowangle (gf) 

Design relative 
outlet flowangle (g*) 

1 

6.300 

60 

52.88 

40.40 

2 

6.830 

60 

55.61 

42.36 

3 

7.020 

60 

56.07 

37.73 

Note: 

r in inches and g in degrees 



38 




Table A. 1.2 (continued) 


LPC 


Stage 

Hub 

Radius 

Number 
of Blades 

Design relative 
inlet flowangle (p^) 

Design relative 
outlet flowangle (p*) 

4 

7.025 

60 

45.92 

29.71 

5 

7.017 

60 

39.94 

26.76 

6 

7.037 

60 

45.69 

25.64 

7 

7.025 

60 

43.01 

24.73 

8 

7.025 

60 

42.23 

15.25 

9 

7.025 

60 

35.14 

16.06 


Note: r in inches and e in degrees 
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Table A. 1.2 (concluded) 


HPC 


Stage 

Hub 

Radius 

Number 
of Blades 

Design relative 
inlet flowangle ( 3 ^) 

Design relative 
outlet flowangle ( 3 *) 

10 

7.308 

60 

49.52 

37.92 

11 

7.553 

60 

48.02 

33.59 

12 

7.757 

60 

48.34 

33.90 

13 

7.956 

60 

47.78 

36.39 

14 

8.123 

60 

50.02 

36.92 

15 

8.258 

60 

54.16 

45.10 

16 

8.351 

60 

56.34 

45.48 


Note: r in inches and 3 in degrees 
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APPENDIX 2 


STAGE PERFORMANCE CALCULATION 


In the PURDU-WINCOF code, the calculation of stage performance is 
carried out through the estimation of work done and losses in a stage 
based on an analytical model. The stage performance calculation being 
discussed here pertains only to establishing the stage work done, and 
the consequent temperature and pressure rise, and the stage losses as 
they occur between the leading and trailing edges of a blade. The 
final exit conditions from a stage are established after ocrrecting the 
stage outlet conditions for various two phase flow effects. 

In calculating the stage performance, it is necessary to take into 
account the presence of droplets in the fluid, and their motion, partic- 
ularly their impact on the blades. Such impaction leads to the formation 
of a film on the blade surface, composed of water from unrebounded drop- 
lets, and a change in the boundary layer and separation characteristics. 
Thus, the stage characteristics become different for a droplet- laden gas 
flow from those for a single phase gas. The change in stage characteris- 
tics arises through modification of (a) momentum thickness of boundary 
layer, (b) diffusion factor and (c) deviation angle. 

It may be stated at the outset than no correlations of compressor, 
cascade or even single airfoil performance data are available for two 
phase flow. It is therefore necessary to model compressor flow based on 
a number of approximations, in turn related to physical process models. 

In order to account for various drop sizes that may arise in a spray, 
it has been suggested that two classes of droplets be identified, one re- 
ferred to as "small" and the other as "large." In adjusting droplet sizes 
for any reason, it is assumed that samll droplets may only remain small, 
while large droplets may become small enough to belong to the small ' - 

droplet class. From the point of view of blade passage flow, the 
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principal distinction between small and large droplets is, as has been 
mentioned earlier, that small droplets are sufficiently small and follow 
the gas phase streamlines/ but large droplets, which are in order of 
about 100 urn in diameter, are assumed to have equal probability of motion 
in all directions in the forward sector. In addition, it is assumed 
that only small droplets may absorb part of the work input. Other dis- 
tinctions between the two classes of droplets arise from the foregoing 
and are taken into account in developing compressor flow models for the 
two classes of droplets. 

In order to simplify calculations of stage losses, three procedures 
have been developed as follows: 

(1) procedure when the compressor operates with a single (gas) 
phase; 

(2) procedure when only small droplets are present; and 

(3) procedure when large droplets are present either by themselves 
or along with small droplets. 

Typical velocity diagram for an axial compressor stage is presented in 
Fig. A. 2.1. 

A. 2.1 Procedure of Gas Phase Operation 

The stage performance calculation for gas phase operation is carried 
out using the analytical/correlation method based on References 10 and 
11 as follows: 

(1) From given inlet conditons or the previous stage exit conditions, 
the total temperature, Tq-j , and total pressure, Pq-| , are 
obtained. 

(2) Calculate specific heat ratio corresponding to the temperature. 

(3) Calculate the stagnation density. 

P 01 = V RT 01 

(4) Assume a value for Mach number, M . 

a 

(5) Calculate the static density and temperature. 

r , -yi/(y-i) 

P, =)l * [r^/2 p 0 i 
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Direction of Flow 



Fig. A.2.1 Typical Velocity Diagram for a Compressor Stage 
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(6) Calculate the acoustic speed. 

a, - (y«T, 9 c ) 0 ' 5 

(7) Calculate the axial velocity. 

v zl = ” /P l A 1 

(8) Calculate the absolute velocity. 

V 1 = v z l y/cos “1 

(9) Calculate the Mach number, M c - 

M c = V a l 

(10) Compare the assumed value of Mach number, M , with the calcu- 

a 

lated one, M c . If M fl agrees within prescribed limits with M c , 
proceed to the next step. Otherwise, steps (4) to (9) must be 
repeated. 

(11) Calculate the components of velocity from the velocity diagram 
at rotor inlet as follows: 


V 1 = V zl /cos a l 

v el = v zl tan “1 

w el = U 1 - v el 

9 0.5 

w, = (v|, t M 2 el ) 

6, = tan'’(W e) /V z ,) 


(12) Calculate relative Mach number at rotor inlet. 



V a i 


44 



(13) Calculate static pressure at rotor inlet. 

( vy/(y-i) 
p i "O t oi /t i?j * p oi 

(14) Calculate total pressure at rotor inlet based on the relative 
Mach number, M r . 

2 y/(y-1) 

P 01 ,r l + W-l)M 2 r] /2 -P, 

(15) Assume V z2 to calculate the total pressure loss coefficient 
across rotor and rotor outlet flow angle. 

(16) Calculate the components of velocity at rotor outlet as 
follows: 


V “ v z2 tan «2 

where $ 2 is an input value at the design point, or is calculated 
according to the procedure given in Appendix 3, Subroutine WICGSL. 


V e2 U 2 ' W e2 

“2 = <4 + W e 2 > 

h - < V z2 + V 92> 
-1 


0.5 


0.5 


a 2 = tan--(V e 2 /V z2 ) 

(17) Calculate the total temperature at rotor outlet. 


t 02 t 01 + ^ u 2 V e2 ' u l v el^ /c p 9 c J 

(18) Calculate static temperature at rotor outlet. 

T 2 = T 02 - V 2 / 2c p g c j 

(19) Calculate acoustic speed at rotor outlet. 

a 2 = (YRT 2 g c )°- 5 
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(20) Calculate absolute and relative Mach number at rotor outlet. 

M 2 = V 2 /a 2 

M r2 = W 2 /a 2 

(21) Calculate total pressure loss factor across rotor. 


P 02,r _ P Q2 ,ri 


r 


P 01 ,r P 01 ,r 


to 


R 


1 - 


1 »r 


01 ,r 


where 


02, ri = 
P 01,r 


fl 


02, r 


( T 01,rj 


r-1 


= 1 + 


x"i 

2 RT 


01.,r 


:1 - 



(22) Calculate total pressure ratio across rotor, and total and 
static pressure at rotor outlet. 


P 02 _ 

[V 

Y-l 

f p 1 

.0.2., r 


fp 1 

u2,ri 

P 01 

IV 


P 

l 01 ,rj 


p 

01 ,r 

P 02 = 

PV 

V 

P 01 




r 

P 9 = 1 + : 

cl„2" 
2 n 2 

-y/ (y-l ] 

1 

* P 02 


-1 


(23) Calculate density at rotor outlet, 
p 2 — P 2 ! 2 
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(24) Calculate the axial velocity at rotor outlet. 


V z2 = ^/p2 A 2 


(25) Compare the calculated value of V z2 in (24) with the assumed 
v z 2 in (15). Iterate steps (15) to (24) until a desired 
accuracy is obtained. 

(26) Calculate total pressure at rotor outlet. 

2 y/(y-1) 


02 


= l + (y - i)m;/2 


(27) Calculate the total pressure loss coefficient across stator, 
“s» and stator outlet angle c* 3 . in a similar fashion as in 
the rotor case. 

(28) Calculate total pressure loss factor across stator. 


(29) 




Calculate the total pressure ratio and total temperature 
ratio across the stage. 


PR = = 

F 01 


fV 

Y-l 

P 02 ? r 


f D 

K 02 ,ri 

-1 

P 03 

i T oiJ 


>.rj 


; P oi.r, 

• 

l P 02j 


TR = WT 


03 7 ' 01 


(30) Obtain total pressure and temperature at stator outlet. 

fP , ' 

» ■% I 

Pr 


03 


03 


02 


02 


T 03 T 02 

(31) Calculate the average value of specific heat ratio. 

(32) Calculate the stage efficiency. 


n 


Pr(y-1)/y . •, 
TR - 1 
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A. 2. 2 Procedure when Small Droplets are Present 


When all of the droplets present at entry to a stage can be cate- 
gorized as small droplets, the following assumptions are introduced. 

(1) Droplets follow gas phase streamlines. 

(2) A fraction of the droplets impacting the blades undergo 
rebound. The balance of impacting droplets move over the 
blade surface in the form of a thin film. The momentum of 
the thin film is negligible. 

(3) The development of the boundary layer over the blade surface 

can be based on Reference 12. The following assumptions are 
made in that Reference: (i) droplets do not interact with 

one another; (ii) a two phase boundary layer exists; and 
(iii) the momentum thickness for the two phases can be super- 
posed after they are obtained in two parts. 

(4) The deviation angle remains the same in two phase flow as in 
single phase flow. The reasoning is that diffusion and trans- 
port of particles can be neglected as being small and, in any 
case, as balancing each other. 

(5) The loss coefficient for two phase flow is thus the sum of the 
loss coefficient for each pahse. The loss coefficient for the 
liquid phase may also be added in an appropriate form to the 
stage efficiency for a stage obtained during operation with 
air in order to obtain the stage efficiency for two phase flow. 

(6) Considering a blade passage flow, between two neighboring 
blades, away from solid boundaries, the drag due to droplets 
can be calculated assuming Stokes drag relation. The number 
of droplets suffering such drag is the sum of the number of 
non-impacting droplets and the number of rebound droplets. 

(7) The overall loss is obtained by adding the losses described 
under (5) and (6) . 

In using the analytical/correlation method for the flow of a mixture 
with small droplets, the basic procedure is the same as the procedure 
utilized in gas phase operation (Section A. 2.1). The pressure rise for 
the gas phase and the temperature rise of water are determined from the 
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mixture turning angle over a blade. The losses are established based 
on (a) the relation between the loss coefficient and the pressure loss; 
the loss coefficient in turn related to the momentum thicknesses of the 
blade boundary layer due to the gas phase and the droplets; and (b) the 
Stokesian drag of droplets in the free stream. The latter, of course, 
is zero for small droplets, by definition. 

The stage performance calculation for a mixture with small droplets 
is carried out using the analytical/correlation method as follows: 

(1) From the given inlet condition or the previous stage 
properties, the gas phase total temperature, Tq-j , and 
total pressure, pQl,g are obtained. 

(2) Calculate the gas constant, R g , specific heat constant 
pressure, c pg and specific heat ratio of gas phase, y. 

(3) Calculate the stagnation density of gas phase. 

P 01,g =P 01 /R q T Q 1 . o 

(4) Assume a value for Mach number, M a . 

(5) Calculate the static density and temperature of gas phase. 




1 + (y 


DMf 2 /2 


tV(t-I) 


01 ,g 



1 + (y - l)M a /2 


T 01,g 


(6) 


Calculate the acoustic speed in the gas phase 



a 


gi 


U R g T gl g c> 


0.5 


(7) Calculate the acoustic speed in the mixture, a^ , as shown in 
Appendix 3, Function WICASD. 

(8) Calculate the density of the mixture. 


m 


l P 9 


*w 


w 
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(9) Calculate the axial velocity. 

V zl = %/ p l A 1 

(10) Calculate the absolute velocity. 

V 1 = V Z ]/ C0S a i 

(11) Calculate the Mach number, M c . 

M c = V,/a f 

(12) Compare the assumed Mach number, M fl , with the calculated one, 
M c . If M fl agrees within prescribed limits with M c , proceed 
to the next step. Otherwise, steps (4) to (11) must be 
repeated. 

(13) Calculate the components of velocity at rotor inlet as follows: 

V 1 = V zl /cos “1 

V el “ v 2 l/ tan “1 

“el - U 1 - v el 

= < v zl +w el> 1/2 
e l - tan '(W el /V zl ) 

(14) Calculate relative Mach number at rotor inlet. 

M r1 = “l /a l 

(15) Calculate static pressure at rotor inlet. 

p = it /t ] . p 

p i ( oi ,g 7 gij p oi 

(16) Calculate total pressure at rotor inlet based on the relative 
Mach number, M^. 

W'H + (Y ' 1>M ) . 1 /2] y/(y - 1) -P, 
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(17) Assume V z2 to calculate the total pressure loss coefficient 
across rotor due to gas phase, ^ p, and rotor outlet angle 
& 2 > where ^ is calculated according to the procedure given 
in Appendix 3, Subroutine WICGSL. 

(18) Obtain the total pressure loss coefficient due to the increase 
of momentum thickness because of the existence of small drop- 
lets in the boundary layer over a rotor blade surface w. D , 

y » k 

as shown in Appendix 3, Subroutine WICSDL. 

(19) Obtain the total pressure loss across rotor due to the Stokesian 
drag of water droplets outside boundary layer u> s as shown in 
Appendix 3, Subroutine WICSTL. 

(20) Calculate the components of velocity at rotor outlet as 
follows : 


W e2 = V z2 tan ®2 
v e2 = U 2 - u e2 


W 2 ^ V z2 + W 02 ) 

v 2 - (v 2 2 * 

- 1 , 


0.5 


0.5 


a 2 ~ tan ^ V e2^ V z2^ 

(21) Calculate the work input. 


AH 0 = < U 2 V e2 ' U l V el)/9c J 

(22) Apportion work input to the mixture constituents as described 
in item (14) of A. 2. 2.1 of Reference (4). 

(23) Calculate static temperature of gas phase at rotor outlet. 

T g2 = T 02,g " V 2 /c pg g c J 

(24) Calculate acoustic speed in gas phase. 

V * w R g V a/' 5 
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(25) Assume p ^ = Pg] anc * calculate the acoustic speed in the 
mixture, a 2 , as shown in Appendix 3, Function WICASD. 

(26) Calculate absolute and relative Mach numbers at rotor outlet. 


M 2 = V 2 /a 2 
M r2 = ^2/^2 

(27) Calculate total pressure loss factor across rotor. 


p 

*02 ,r 
P 01,r 


P 

02, ri 
P 01,r 


S,R + 


U 


e,R s ,R 



(28) Calculate total pressure ratio across rotor, and total and 
static pressures at rotor outlet. 


P 02 

T 02,g 

Y“ ' 

r p 1 

p 02,r 


rp 1 

r 02,ri 

P 01 

T 01 ,g. 

• 

p 

l OI.rJ 

• 

P 

ol.rj 


-1 


fP 


02 


02 


01 


01 


P 2 


1 + M 2l Y 1 


02 


(29) Calculate static density at rotor outlet. 


p g2 " P 2 /R g T g2 

(30) Compare the calculated value of p g2 in (29) with the assumed 
value of p g2 in (25). Iterate steps (25) to (29) until a 
desired accuracy is obtained^ 

(31) Calculate the density of mixture at rotor outlet. 


p m2 


l p g2 p w. 


-1 
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(32) Calculate the axial velocity at rotor outlet. 

V Z 2 " "W/One* 

(33) Compare the calculated value of V Z 2 in (32) with the assumed 
value of V z 2 in (17). Iterate steps (17) to (32) until a 
desired accuracy is obtained. 

(34) Calculate total pressure at rotor outlet. 





y/(y-1) 


(35) Calculate the total pressure loss coefficient across stator 
due to gas phase, ojg g, and stator outlet angle, ctg, as shown 
in Appendix 3, Subroutine WICGSL. 

(36) Obtain the total pressure loss coefficient due to the increase 
of momentum thickness because of the existence of small drop- 
lets in the boundary layer on a stator blade surface, w Q 5 , 

as shown in Appendix 3, Subroutine WICSDL. 

(37) Obtain the total pressure loss across stator due to the 
Stokesian drag of water droplets in the free stream outside 
boundary layer u s $ ; as shown in Appendix 3, Subroutine WICSTL, 
it may be noted that Stokesian drag is zero in the case of 
small droplets by definition. 

(38) Calculate total pressure loss factor across stator. 



V. J 


(39) Calculate the total pressure ratio and gas phase total 
temperature ratio across stage. 


PR = 


P 03 _ 

It - 1 

03, g 

Y-l 

f, 02,r 


P 02 , ri 

-1 

fp 

r 03 

P 01 

V.s. 


> ,r 


P 01 » r 


p 

1 02 

^ / 


TR = T 


03,g/ T 01 ,g 
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(40) 


(41) 

(42) 


A. 2. 3 Procedure when Large or Large and Small Droplets are Present 

It is postulated that when large droplets are present, they always 
play the more dominant role. 

The following assumptions are introduced. 

(1) Droplets move with equal probability in all directions in 
the forward sector. 

(2) A fraction of the droplets impacting the droplets undergo 
rebound. The balance of impacting droplets move over the 
blade surface in the form of a thick film. The momentum of 
the thick film is appreciable and represents a loss of mixture 
momentum. 

(3) The development of the boundary layer can be estimated based 

on the following reasoning: (a) the thick film presents a 

continuous rough surface; (b) the roughness is at most of the 
order of droplet thickness; and (c) the boundary layer is 
fully turbulent and extends over the chord length. A coeffi- 
cient of friction for the flow can then be based on Reference 
13. 

(4) The deviation angle remains the same as in the case of single 
phase flow. 


Obtain total pressure and gas phase total temperature at 
stator outlet. 



M 

03 

P 02 

V. 

03, g 

: T 02 


Calculate the average value of specific heat ratio. 
Calculate the stage efficiency. 

pr (y-1)/y _ 1 
n TR - 1 
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(5) Considering a blade passage flow, between two neighboring 
blades, away from solid boundaries, the drag due to droplets 
can be calculated assuming Stokes drag relation. The number 
of droplets suffering such drag is the sum of the number of 
non-impacting droplets and the number of rebound droplets. 

(6) The overall loss is therefore obtained by adding the losses 
described under (2), (3) and (5). 

The stage performance, when large droplets are present, with or 
without small droplets, is carried out as follows. It may be pointed 
out that the determination of stage pressure ratio follows the same 
procedure as in the case of a mixture with small droplets only. Appendix 
Section A. 2. 2. The determination of the loss coefficient when large 
droplets are present is wholly different. 

(1) From given initial conditions or from the previous stage 
properties the gas phase total temperature, Tq-j and total 
pressure, Pq-| , are obtained. 

(2) Calculate the gas constant, R , specific heat at constant 

y 

pressure, c pg , and specific heat ratio, y. 

(3) Calculate the stagnation density of gas phase. 

p 01,g = P 01 /R g T 01,g 

(4) Assume a value for Mach number, M a . 

(5) Calculate the static density, and temperature of gas phase, 
as follows: 

r , T V(rl) 

P, = [1 + (y - 1)Mj 2 /2J * p 01 ,g 

T gl ’ [ + <Y - DM^/z] T 01 _ g 

(6) Calculate the acoustic speed in the gas phase, 'a j. 

a gl - W Rg T gl G c ) 0 - 5 

(7) Calculate the acoustic speed in the mixture, a-j , as shown in 
Appendix 3, Function WICASD. 
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(8) Calculate the density of the mixture. 


p m = 

K m 




X 

n 

l p g + p 


w 


-1 


(9) Calculate the axial velocity. 

V z1 = *WV 

(10) Calculate the absolute velocity. 


V 1 V zl /cos a l 

(11) Calculate the Mach number, M c< 

H c = V a l 

(12) Compare the assumed Mach number, M , with the calculated one, 

M c _. If M q agrees within prescribed limits with M c , proceed 

to the next step. Otherwise steps (4) to (11) must be repeated. 

(13) Calculate the components of velocity at rotor inlet as follows: 

V 1 = V cos “l 


V 6l = V zl ta " 


W 0! ’ U 1 - V 9l 


1/2 


W 1 ■ < V z1 +U 9l> 

«1 - tan '’<V v zl> 

(14) Calculate relative Mach number at rotor inlet. 


M rl * V a l 
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(15) Calculate static pressure at rotor inlet. 


P, = 


T ol .g /T g 


-y/Cy-1 ) 


fF 01 


(16) Calculate the total pressure at rotor inlet based on M r . 


P 01,r 



- 1) M rl /2 


y/(y-D 


P 


1 


(17) Assume V Z2 to calculate the total pressure loss due to gas 
phase, R , and rotor outlet angle & 2 > as shown in Appendix 3, 
Subroutine WICGSL. 

(18) Calculate the total pressure loss coefficient due to the momen- 

tum gained by thick water film moving over the rotor blade 
surface R , as shown in Appendix 3, Subroutine WICFML. 

(19) Calculate the total pressure loss coefficient due to turbulent 
flow of mixture over the rough film surface of rotor blade, 

(o r R , as shown in Appendix 3, Subroutine WICRSL. 

(20) Calcualte the total pressure loss coefficient due to the 
Stokesian drag of water droplets in rotor passage, oi s R , 
as shown in Appendix 3, Subroutine WICSTL. 

(21) Calculate the components of velocity diagram at rotor outlets 
as follows: 


"e2 = V z2 tan H 


V - u 2 - w e2 


w, = 


V, = 


f V 2 + W 2 
v z2 w e2 


fv z2 + v e2 1 


0.5 

0.5 


-1 


a /■ 


ta " <V V z2> 
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(22) Calculate the work input. 

4H 0 = < U 2 V 02 - U l V el>/9 C J 

(23) Apportion the energy input in the mixture as described in item 
(15) of A. 2. 2.1, of Reference (4). 

(24) Calculate static temperatrue of gas phase at rotor outlet. 

T g2 ' T 02,g - V 2 /2c pg 9 c J 

(25) Calculate the acoustic speed in gas phase. 

0.5 

a g2 = R g T g2 9 C > 

(26) Assume p g2 = P g -j and calculate the acoustic speed in the 
mixture a 2 , as shown in Appendix 3, Function WICASD. 

(27) Calculate absolute and relative Mach number at rotor outlet. 


M 2 = V 2 /a 2 
M r 2 — Wg/ a 2 


(28) Calculate total pressure loss factor across rotor. 


P 02,r 

P 

01, r 


P 02,ri 

P 01,r 


r 




g,R T w f,R ' “r.R 





P 01 ,rj 


(29) Calculate total pressure ratio across rotor, and total static 
pressure at rotor outlet. 


P 02 = 

(t 1 

02, g 

7-1 

fp I 

02, r 


P 02,ri 

P 01 

1 T 01 ,gj 


p 

l Ol.rj 


. p 01,r. 


02 


02 


( P 01J 


01 
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(30) 


P 2 = 


1 + 


- 1 m 2 ) 
O Mr 


f-1 


02 


Calculate static density at rotor outlet. 


p g2 = P 2 /R g T g2 

(31) Compare the calculated p g2 in (27) with the assumed p g2 in (23). 
Iterate steps (23) to (27) until a desired accuracy is obtained. 

(32) Calculate the density of mixture. 


p m2 


[**♦ 

u 


A-l 

w 


(33) Calculate the axial velocity at rotor outlet. 

V z2 = '"nAnA? 

(34) Compare the calculated V z2 in (33) with the assumed V z2 in 
(34). Iterate steps (17) to (33) until the desired accuracy 
is obtained. 

(35) Calculate total pressure at rotor outlet. 


02 


1 + ( Y 


1) M ^/2 


3 


y/(y-1) 


(36) Calculate the total pressure loss coefficient across stator 
due to gas phase, w and stator outlet angle, a,, as shown 

g 5 o o 

in Appendix 3, Subroutine WICGSL. 

(37) Calculate the total pressure loss coefficient due to the momen- 
tum gained by thick water film on the stator blade surface, 

Wf as shown in Appendix 3, Subroutine WICFML. 

(38) Calculate the total pressure loss coefficient due to turbulent 
friction over a rough film surface over the stator blade, 

u> r <j> as shown in Appendix 3, Subroutine WICRSL. 
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(39) Obtain the total pressure loss across stator due to Stokesian 
drag of large water droplets in the free stream outside bound- 
ary layer, oi s as shown in Appendix 3, Subroutine WICSTL. 

(40) Calculate total pressure loss factor across the stator. 





g,s 


01 


f,S + “r.S + 


0 ), 


s,S 



(41) Calculate the total pressure ratio and gas phase total 
temperature ratio across stage. 


PR P 03 /P 01 


fl ) 

03, g 

Y-l 

fp 

K 02,r 

f P 02,ril 

- 1 

f p 

p 03 

T oi»g. 


L P 01,rJ 

.Vr, 


P 02 

V. / 


TR " T 03,g /T 01,g 

(42) Obtain total pressure and gas phase total temperature at 
stator outlet. 


P 

T 



IP I 
u3 

03 

P 

,02 

> 

03, g ' 

eo 

O 

1— 


02 


(43) Calculate the average value of the specific heat ratio. 

(44) Calculate the stage efficiency. 


= PR^ y ~^ /y -1 
n TR - 1 
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APPENDIX 3 


DETAILED DESCRIPTION OF SUBROUTINES 
AND EXTERNAL FUNCTIONS 


There are 22 subroutines and 13 external functions in this program. 
Brief descriptions of these subprograms are presented in Chapter III. A 
more detailed description of each subprogram is presented here. Each 
of the subroutines and external functions is presented as follows: 

(1) Description, (2) Input variables, (3) Output variables, and (4) Usage. 

SUBROUTINE WICSPB 

(1) Description: 

The subroutine WICSPB is used for the calculation of stage 
performance based on the analytical /correlation method for 
small droplet. A detailed description of calculation 
procedure is presented in Appendix 2. 

(2) Input Variables: 


FAIO 

initial flow coefficient 

ISTAGE 

stage at which performance calculation is 
carried out 

MM ASS 

mass flow rate of mixture 

ALFA! 

absolute flow angle at outlet of the previous 
stage stator 

DAV 

nominal diameter of small droplets 

DELV 

relative velocity between gas phase and large 
droplets 

WMAS 

mass flow rate of small droplets 

N 

station number 

AK1 

constant in Eq. (A. 3. 6)' 
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AK2 

AK3 


constant in Eq. (A. 3. 7)' and (A. 3.8)' 
constant in Eq. (A. 3.1)' and (A. 3. 2)' 


(3) 


Output 
OMEGA 1 

OMEGA2 


OMEGA3 


0MEGA4 

OMEGA5 


0MEGA6 


OMEGAT 

BETA! 

BETA2 

VZ 

ALFA2 

ALFA3 

DELTG 

DELTW 

W1 

W2 

VI 


Variables : 

total pressure loss coefficient due to single- 
phase (gas) flow profile loss in rotor 
total pressure loss coefficient due to loss for 
small droplets on account of the change in 
momentum thickness of boundary layer due to the 
presence of such droplets in rotor 
total pressure loss coefficient due to Stokesian 
drag of small droplets in the free stream of 
blade passage in rotor 

total pressure loss coefficient due to single- 
phase (gas) flow profile loss in stator 
total pressure loss coefficient due to loss 
for small droplets on account of the change in 
momentum thickness of boudnary layer due to the 
presence of such droplets in stator 
total pressure loss coefficient due to Stokesian 
drag of small droplets in the free stream of 
blade passage in stator 
sum of total pressure loss coefficients 
relative flow angle at rotor inlet 
relative flow angle at rotor outlet 
axial velocity 

absolute flow angle at stator inlet 
absolute flow angle at stator outlet 
rise in total temperature of gas phase across 
a stage 

rise in temperature of small droplet across 
a stage 

relative velocity at rotor inlet 

relative velocity at rotor outlet 

absolute velocity at rotor inlet 
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V2 

V3 


absolute velocity at stator inlet 
absolute velocity at stator outlet 


(4) Usage: 

CALL WICSPB (FAIO, ISTAGE, MMASS, ALFAT, WKDONE , DAV, DELV, 
WMAS , N, OMEGA! , 0MEGA2, 0MEGA3, 0MEGA4, 0MEGA5 , 
0MEGA6, OMEGAT, BETA1 , BETA2, VZ, ALFA2, ALFA3, 
DELTG, DELTW, W1 , W2, VI, V2, V3, AK1 , AK2, AK3) 

SUBROUTINE WICSPC 

(1) Description: 

The subroutine WICSPC is used for the calculation of stage 
performance based on the analytical /correlation method for 
large droplet. A detailed description of calculation pro- 
cedure is presented in Appendix 2. 

(2) Input Variables: 


FAIO 

initial flow coefficient 

ISTAGE 

stage at which performance calculation is 
carried out 

MMASS 

mass flow rate of mixture 

ALFA1 

absolute flow angle at outlet of the 
previous stage stator 

WKDONE 

work done factor 

DAV 

nominal diameter of large droplets 

DELV 

relative velocity between gas phase and 
large droplets 

WWMAS 

mass flow rate of large droplets 

N 

station number (Fig. 5.1) 

REAVE 

average Reynolds number 

DELVU2 

relative velocity between gas phase and droplet 

DELVL2 

relative velocity between gas phase and droplet 

AK1 

constant in Eq. (A. 3. 6)' 

AK2 

constant in Eq. (A. 3. 7)' and (A. 3. 8)' 

AK3 

constant in Eq. (A. 3.1)' and (A. 3. 2)' 
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(3) 


Output Variabl 
OMEGA! 


OMEGA2 

0MEGA3 


0MEGA4 


OMEGA5 

0MEGA6 


OMEGAT 

BETA! 

BETA2 

VZ 

ALFA2 

ALFA3 

DELTG 

DELTW 

W1 

W2 

VI 

V2 

V3 


es: 

total pressure loss coefficient due to the 
mixture boundary layer formed over rough film 
surface in rotor 

total pressure loss coefficient due to film 

formed on rotor blade surface 

total pressure loss coefficient due to Stokesian 

drag of large droplets in the free stream of 

blade passage in rotor 

total pressure loss coefficient due to the 

mixture boundary layer formed over rough film 

surface in stator 

total pressure loss coefficient due to film 

formed on stator blade surface 

total pressure loss coefficient due to Stokesian 

drag of large droplets in the free stream of 

blade passage in stator 

sum of total pressure loss coefficient 

relative flow angle at rotor inlet 

relative flow angle at rotor outlet 

axial velocity 

absolute flow angle at stator inlet 
absolute flow angle at stator outlet 
rise in total temperature of gas phase across 
a stage 

rise in temperature of small droplet across 
a stage 

relative velocity at rotor inlet 
relative velocity at rotor outlet 
absolute velocity at rotor inlet 
absolute velocity at stator inlet 
absolute velocity at stator outlet 


(4) Usage: 

CALL WICSPC (FAIO, ISTAGE, MMASS, ALFA1 , WKDONE, DAV, DELV, 
WMAS, WWMAS, N, 0MEGA1 , 0MEGA2, 0MEGA3, 0MEGA4, 
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0MEGA5, 0MEGA6 , OMEGAT, BETA1 , BETA2, VZ, ALFA2, 
ALFA3, DELTG, DELTW , W1 , W2, VI, V2, V3, REAVE, 
DELVU2, DELVL2, AK1 , AK2, AK3) 


SUBROUTINE MICSPD 

(1) Description 

The subroutine WICSPD is used for the calculation of design 
point performance. The properties obtained in this subroutine 
become reference properties for calculation of off-design 
performance. 

(2) Input Variables 

AMASS mass flow rate 

ISTAGE stage at which performance calculation is 

carried out 

(3) Output Variables: 
none 

(4) Usage: 

CALL WICSPD (AMASS, ISTAGE) 

SUBROUTINE WICGSL 

(1) Description: 

The subroutine WICGSL is used for the calculation of single- 
phase (gas) flow loss. In the current model, the concept of 
the equivalent diffusion ratio by Lieblein (Ref. 10) and Swan's 
correlation (Ref. 11) have been employed in order to estimate 
the blade outlet flow angle and loss due to turbulent flow of 
gaseous phase over the rigid blade surface. In the event 
that a different model is to be employed, for the estimation 
of the blade outlet angles of the gaseous phase, subroutine 
WICGSL, function WICED, and if needed subroutine WICSPD should 
be modified to incorporate the new correlation. 

Lieblein has shown that the design point loading factor, the 
Diffusion Factor, does not represent a suitable criterion for 
loading at off-design conditions, except possibly at other 
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minimum loss points. This is due to the fact that the basic 
derivation of the Diffusion Factor has been based on a flow 
model which corresponds to operation at or near minimum loss. 

He has therefore suggested a generalized loading parameter. 

This parameter, the Equivalent Diffusion Ratio, is based on 
the ratio of the maximum suction surface velocity and trailing 
edge velocity for a given section cascade. Lieblein has deduced 
an expression which approximates this velocity ratio in terms 
of measured overall performance. The Equivalent Diffusion 
Ratio is suitable for correlation of low speed data. For the 
general case where the axial velocity ratio may be large, such 
as in a rotor or stator cascade, the Equivalent Diffusion 
Ratio, D e q, has been defined as follows: 
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and k = 0.0117 for the NACA 65 (A-|q) blades and k = 0.007 for 
the circular-arc blades. The Equivalent Diffusion Ratio 
at minimum loss, D *, is obtained by dropping the term repre- 
senting the incidence angle effects, that is as follows: 
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The wake momentum thickness can be expressed nondimensionally 
as follows: 
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where c is the chord length of the blades. 


(A. 3. 3) 
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At minimum loss, Eq. (A. 3. 3) yields 
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Also, form Eq. (A. 3. 3), the total pressure loss coefficient 
expressed as follows: 
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From the cascade test data, the deviation angle, 6, and the non-dimension- 
al wake momentum thickness, (-) , are expressed in terms of the D , D eq *, 
(•~r)*, and inlet Mach number, M, as follows (see Swan Ref. 11): 


6 = 6* +[6.40 - 9 . 45 ( M-j -0. 60 ) ] (D eq -D eq *) * AK1 (A. 3. 6) 

(f)= (£)* + (0.827M, - 2.692M 2 - 2.675M^) (D eq - D eq *) 2 • AK2 (A.3.7) 

forD eq >D eq* 

(§)* (f)* + (2.89M, - 8. 71M 2 + 9.36M 2 ) (D eq - D eq *) 2 • AK2 (A.3.8) 


f °r D eq 



* 


Using these empirical expressions, the air angle at blade outlet and 
total pressure loss coefficient at an off-design point can be determined 
as follows: 

(i) Calculate the inlet angle, g-j, and the inlet Mach number, M-|. 

(ii) Calculate the Equivalent Diffusion ratio at minimum loss, D gq *. 

(iii) Calculate the nondimensional wake momentum thickness at 
minimum loss, (— )*. 

(iv) Assume the fluid outlet angle, (g 0 )_. 

C a 
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(V) 

(Vi) 

(vii) 

(vii) 

(lx) 


(X) 

(xi) 


Calculate the incidence angle, i, i = g-| - g-|* + i*. 
Calculate the Equivalent Diffusion Ratio D gq . 

Calculate the deviation angle, 6. 

Calculate the fluid outlet angle, (g 2 ) c , (^c = ^2* ” + 

Compare the assumed value of fluid outlet angle, (g 2 ) a , 
with the calculated value of that, (g 2 ) c to chec k if 
|(g 2 ) a -( 32 ) c l <£ where e is the desired accuracy. 

Iterate step (iv) to step (ix) until satisfactory accuracy 
is obtained. 

Calculate the nondimensional wake momentum thickness, (— ). 
Calculate the total pressure loss coefficient to. 


Figure (A. 3.1) shows the flow chart of the calculation procedure to pre- 
dict the outlet angle and total pressure loss coefficient. 

The program also includes a provision for modifying the equations given 
in Ref. 10 and 11. Equations (A. 3.1), (A. 3. 2), (A. 3. 6), (A. 3. 7), and 
(A. 3. 8) can be modified by introducing constants AK1 , AK2, and AK3 as 
follows. 
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6 = 6*+ [6.40 - 9.45 (M ] - 0.60)] (D eq - D gq *) 


AKl 
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(A. 3. 6)' 


(|) = (|)* + (0.827M ] - 2. 692M| - 2.675M") (D - D *) d • AK2 (A.3.7)' 


for D„_ > D_ * 
eq eq 
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Fig. A. 3.1 Procedure for Prediction of Total Pressure Loss 
Coefficient and Blade Outlet Flow Angle 
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(A. 3. 8)' 


(f) = (£)* + (2.80M-J - 8. 71 M 2 + 9. 36M^) (D gq - D eq *) 2 -AK2 


for D 

eq 


< D 


★ 

eq ’ 


( 2 ) 


Input Variables 


SIGUMA 

BET1S 

BET2S 

AINCIS 

ADEVIS 

AMACH1 

BET! 

DEQS 

SITACS 

X 


solidity 

blade inlet flow angle at design point 
blade outlet flow angle at design point 
incidence at desing point 
deviation at design point 
blade inlet Mach number 
blade inlet flow angle 

equivalent diffusion ratio at design point, D * 

C H 

dimensionless momentum thickness at design point, 



Mach number below which the effect of Mach 
number disappears in estimating deviation angle. 
The value of 0.6 is recommended by Swan (Ref. 11). 


AK1 
AK2 
AK3 
VZ1 
VZ2 
UR1 
R1 
R2 

(3) Output Variables: 

DEQN equivalent diffusion ratio, D gq 

SITACN dimensionless momentum thickness, (£) 

BET2N blade outlet angle 

OMEGAN total pressure loss coefficient 


constant in Eq. (A. 3. 6)' 
constant in Eq. (A.3.7) 1 and (A. 3. 8)' 
constant in Eq. (A. 3.1)' and (A. 3. 2)' 
axial velocity at blade inlet 
axial velocity at blade outlet 
rotor blade speed at blade inlet 
radius at blade inlet 
radius at blade outlet 
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(4) Usage: 

CALL WIC6SL (SIGUMA, BETTS, BET2S , AINCIS, ADEVIS, AMACH1 , 
BET1 , DEQS, DEQN, SITACS, SITACN, BET2N , OMEGAN, 
X, AK1 , AK2, AK3, VZ1 , VZ2, UR1 , R1 , R2) 


SUBROUTINE WICSDL 

(1) Description: 

The subroutine WICSDL is used for the calculation of loss for 
small droplets on account of the change in momentum thickness 
of the boundary layer due to the presence of such droplets. 

In order to estimate the loss pertaining to the increase of 
momentum thickness due to the existence of small droplets in 
the boundary layer, Soo's boundary layer analysis for a gas- 
solids suspension is introduced (Ref. 12). In an isothermal 
incompressible system, Soo has derived the following equation 
for suspended particles under the assumption that the number 
of collisions among particles is negligible when compared to 
that with the wall , 
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p U < U 2 > 
] H p 0 pw pw 


2t / if Pq 
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0.1402 
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+ 0.0972 


Neglecting shear due to impact of solid particles, Soo derived 
the following equation. 
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(A. 3. 10) 


The boundary layer thickness, 6, can be obtained from Eqs. (A. 3. 9) 
or (A. 3. 10), In. the present model , Eq. (A. 3.10) was used. 

The momentum, thickness , due to liquid phase, p, is given by 



( ' 

u - U : 
p pw, 

2 

m 

P P 0 - P pw 

U pw 1 

% J 

(1 +m) (2 + m) 

V 

Up • o, + 1 


* 

P P 0 - P pw 


r y 

U P " U pw 

i Pp o J 


U P J 


r(|+ 1) - r ( a + 1 ) 
- r(f + o + 2) 


r(^+ 1) • r(a + 1) 

r(i+ a + 2 ) 

'm - s 


(A. 3.10) 


where a and m are constants associated with distribution of 
veTocity and density of liquid phase in the boundary layer 
namely 
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l./m 
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P p P pw ~ ^ P p0 " p pvP ^ ~ 6^ 

For the case of solid, spherical particles of 100 and 200 urn 
in diameter in air moving at room conditions with a velocity 
of 50 to 100 fps, Soo has obtained the following values for 
the various quantities. 


n = 7, m = 1 .25, a = 2. 30, 


U - U P 

- ~ f T— ^ = °- 812 » -^=1.451 
u p % 


Utilizing the above values, Eq. (A. 3. 10) becomes 


e 

= 0.1402 
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Following the procedure of Lieblein, the total pressure loss 
coefficient due to the increase of momentum thickness, e n D , 
because of the existence of small droplets in the boundary 
layer over rotor blade surface, w 0 R , can be expressed as 
follows: 
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Similarly, the total pressure loss coefficient due to the 
increase of momentum thickness, e n because of the existence 
of small droplets in the boundary layer on stator blade surface 


ou- _, can be expressed as follows: 
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The stagnation pressure losses corresponding to a>. and 
_ 6 ,r 

to Q _ can be written as follows. 

AP e,R = \ p l w l w e,R 


AP - 1 2 V 2 - 

AP e,s - 2 p V 2 %s 


Thus, the total pressure loss across a stage due to the in- 
crease of momentum thickness because of the existence of 
small droplets in a boundary layer is given by 


iP e 1 aP a,R + iP e,s 


(2) Input Variables 

CHORD chord length 

SIGUMA solidity 

BETA1 blade inlet flow angle 

BETA2 blade outlet flow angle 

UG average flow velocity 

RHOG density 

AMASS W mass flow rate 

AREA flow area 

VZ axial velocity 

(3) Output Variables: 

OMEGAF total pressure loss coefficient 

(4) Usage: 

CALL WICSDL (CHORD, SIGUMA, BETA1 , BETA2, UG, RHOG, AMASSW, 
AREA, VZ, OMEGAP) 


SUBROUTINE WICSTL 

(1) Description: 

The subroutine WICSTL is used for the calculation of loss 
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due to Stokesian drag of droplets in the free stream of 
blade passage. 

In view of the assumption pertaining to motion of small drop- 
lets (with zero relative velocity with respect to gas phase), 
the total pressure loss due to Stokesian drag becomes zero 
for small droplets. 

For large droplets, the model introduced is described below. 

The large droplets move with substantial relative velocity with 
respect to the gas phase and have equal probability of motion 
in all directions. However, regarding the latter aspect, the 
droplets are divided into two subclasses with a direction of 
motion for each class, specified with respect to the gas phase 
velocity vector. The number of droplets impacting on the blade 
surface is then proportional to the blade surface area projec- 
tion normal to the velocity vectors for the two subclasses of 
droplets. 

Referring to Fig. A. 3. 2, the two subclasses are shown as (1) 
and (2) which have direction of motion given by y-| > and 
relative to the gas phase velocity vector. The total number 
of droplets in subclass (1) is proportional to angle 2 y-| and 
those in subclass (2) is proportional to angle 2y-j (180 - 2y-j ) . 
The relative velocity between the gas phase and droplets of 
subclass (1) is given by the difference between and the 
component of Vp^(the velocity of droplets in subclass (1) in 
the direction of Vg-|). Similarly the relative velocity be- 
tween the gas phase and the droplets of subclass (2) is given 
by the difference between and the component of ln the 
direction of Vg-| . Thus for droplets of subclass (1) the rela- 
tive velocity is given by the relation, 

v gl ' v pl cos *1 

and for droplets of subclass (2), the relative velocity is 
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given by the relation. 


V gl ' V pl cos ^2 


In Fig. A. 3. 2, the blade outlet conditions are also shown. As 
at the blade inlet section the relative velocities between the 
gas phase and droplets of subclasses (1) and (2) may be written 
as follows: 


Vg 2 - V pl cos 6-j for subclass (1), and 



Vp^ cos 6 2 for subclass (2). 


where 6-j is the inclination of the mean velocity vector for 
subclass (1) and 6 2> the inclination of the mean velocity 
vector at outlet, designated Once again, at the outlet 

section, the number of droplets in subclass (1) is proportional 
to angle 26-j, and the number of droplets in subclass (2) is 
proportional to angle 2 $ 2 , or (180 - 26-j ) . It is clear that 
the total number of droplets is divided into two new subclasses 
at the outlet, based on the directions of motion of droplets 
relative to the gas phase velocity. The two subclasses at the 
outlet are the output from the blade row for the given initial 
and operating conditions. Based on the foregoing model of mo- 
tion of large droplets the total pressure loss coefficient due 
to the Stokesian drag of large water droplets in a rotor pass- 
age, u>„ n, can be estimated as follows: 

S j K 

The Stokesian drag of water droplets across a rotor blade is 
given by 


0 - Cn o 


>gl (W gl 


- V 


Vd.r 


where and W p -| are relative velocities of gaseous phase and 
droplets at rotor inlet, A p , the project area of a droplet, 
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and r » the number of droplets that exist in rotor passage. 
Referring to Fig. A. 3. 3, the Stokesian drag, D, can also be 
written as 


D = (P, 


01, r 


P 02,r^ A R 


where Pq-j r and Pq 2 r are total pressure at station (1) and (2) 
in rotor coordinate system, and A R is the average flow area in 
a rotor blade passage. 

From the above equations, the total pressure loss across a 
rotor blade due to the Stokesian drag, AP becomes 

S * i 

P s,R = C D I p gl ( W gl " W pl^ A p N d,R /A R = D/A R 


By definition, the total pressure loss coefficient across a 
rotor blade due to Stokesian drag, a> s R , can be obtained as 
follows: 
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Similarly, the total pressure loss across a stator blade due 
to Stokesian drag, AP becomes 

S .o 


AP 
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■ C D 2 
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and the total pressure loss coefficient across a stator blade 
due to the Stokesian drag, u> c can be obtained as follows: 
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Thus, the total pressure loss across a stage due to Stokesian 
drag is given by 
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( 2 ) 


iP s = sP s,R + 

4P s,S 

Input Variables: 

I STAGE 

stage at which performance calculation 


out 

I ROTOR 

index for rotor or stator 

DAV 

nominal droplet diameter 

W1 

relative velocity at rotor inlet 

W2 

relative velocity at rotor outlet 

DELV 

relative velocity between gas phase and 

V2 

absolute velocity at stator inlet 

V3 

absolute velocity at stator outlet 

WMASS 

mass flow rate of droplet 

VZ 

axial velocity 

N 

station number (Fig. 5.1) 

BETA1 

relative flow angle at rotor inlet 

BETA2 

relative flow angle at rotor outlet 

ALFA2 

absolute flow angle at stator inlet 

ALFA3 

absolute flow angle at stator outlet 


(3) Output Variables: 


DELVU2 

DELVL2 

OMEGRU 

OMEGRL 

OMEGSU 

OMEGSL 

DRAGRU 

DRAGRL 


relative velocity between gas phase and large 

droplet in subclass (1) at blade outlet 

relative velocity between gas phase and large 

droplet in subclass (2) at blade outlet 

total pressure loss coefficient across rotor 

due to Stokesian drag in subclass (1) 

total pressure loss coefficient across rotor 

due to Stokesian drag in subclass (2) 

total pressure loss coefficien across stator 

due to Stokesian drag in subclass (1) 

total pressure loss coefficient across stator 

due to Stokesian drag in subclass (2) 

drag force due to large droplet in subclass (1) 

drag force due to large droplet in subclass (2) 
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DRAGSU drag force due to small droplet in subclass (1) 

DRAGSL drag force due to small droplet in subclass (2) 

REAVE average Reynolds number 

(4) Usage: 

CALL WICSTL (ISTAGE, IROTOR, DAV, W1 , W2, DELV, V2, V3, WMASS, 
VZ, N, BETA!, BETA2, ALFA2, ALFA3, DELVU2 , DELVL2 , 
OMEGRU, OMEGRL, OMEGSU, OMEGSL, DRAGRU, DRAGRL , 
DRAGSU, DRAGSL, REAVE) 


SUBROUTINE WICFML 

(1) Description: 

The subroutine WICFML is used for the calculation of loss 
due to film formed on blade surface when large droplets are 
present either by themselves or along with small droplets. 

The momentum gained by the thick water film on the rotor blade 
surface is given by ^-f-j i m P er un ^ ^ ac * e length, where 
rhf i i m is the mass flow rate of water film on the rotor blade 
per unit blade length and V^-^ is the mean velocity of 
water film. 


Considering the difference in viscosity between the two phases, 
the velocity of water film can be estimated as follows: 


V film 2 W <j 




where W g is the mean velocity of gaseous phase, and y g and y-j 
are the viscosities of gaseous and liquid phases, respectively. 

The foregoing momentum can be transformed into an equivalent 
drag coefficient as follows. 



m f i 1 m V fi lm 




c 


where is blade inlet density of gaseous phase, and c is 
the chord length of the blade. 
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The drag coefficient can then be expressed in the form of a 
total pressure loss coefficient as follows: 


c n o P 


f 2 "gl "gl 


c = aP 4 


COS B 


where s is the blade pitch and 3 m is mean flow angle. Noting 
that V z = Wg cos 3 m , one obtains the relation, namely 


4Pf ' 2 "Si = \ 's' cos 3 s 


Since = V z / cos , the total pressure loss coefficient due 

to the momentum gained by the thick film on the rotor blade 
surface can be written as follows: 


- - ,n / I ,,2 _ „ „ cos ft 

J f AP f 1 2 p gl W gl c D f (|) v— 0 

S cos & 


(2) Input Variables: 


WG1 

flow velocity at blade inlet 

WG2 

flow velocity at blade outlet 

FMASS 

mass flow rate of water film on blade surface 
per unit blade length 

RH0G1 

densi ty 

CHORD 

chord length 

SIGUMA 

solidity 

BETA1 

blade inlet flow angle 

BETA2 

blade outlet flow angle 


(3) Output Variables: 

CDF drag coefficient 

OMEGAF total pressure loss coefficient 

(4) Usage: 

CALL WICFML (WG1 , WG2, FMASS , RH0G1 , CHORD, SIGUMA, BETA1 , 
BETA2 , CDF, OMEGAF) 
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SUBROUTINE WICRSL 


(1) Description: 

The subroutine WICRSL is used for the calculation of loss due 
to the rough surface when large droplets are presented either 
by themselves or along with small droplets. 

Using the experimental results on pipes roughened with sand, 
L. Prandtl and H. Schlichting carried out a correlation to 
obtain the friction coefficient on a rough plate (Ref. 13). 
The correlation was based on the logarithmic velocity distri- 
bution law for rough pipes in the form, namely 

V* 2.5 ln(() + B 

where v* is friction velocity; k is roughness of surface, and 
B is a roughness function which depends on the roughness pa- 
rameter, v*k/r. 

In the completely rough regime, they obtained the following 
relation for the drag coefficient for a plate. 

-2.5 

c Dr ~ 0*81 + 1.62 log 10 ^-) 


In the present case, x is replaced by the chord length, c, and 
the surface roughness k is assumed to be the same as the order 
of mean diameter of large droplets. 


Thus, the total pressure loss coefficient due to turbulent 
friction over a rough film surface on a rotor becomes the 
following. 



c 0r <?> 



3 


3 


1 

m 


(2) Input Variables : 

SIGUMA solidity 

BETA! blade inlet flow angle 
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BETA2 blade outlet flow angle 

CHORD chord length 

DL droplet diameter 

(3) Output Variables: 

CDR drag coefficient 

OMEGAR total pressure loss coefficient 

(4) Usage: 

CALL WICRSL (SIGUMA, BETA1 , BETA2, CHORD, DL, CDR, OMEGAR) 

SUBROUTINE MICCEN 

(1) Description: 

The subroutine WICCEN is used for the calculation of spanwise 
replacement of droplets due to centrifugal action. 

Three forces act on a droplet moving through a fluid: (1) the 

external force consisting of gravitational and centrifugal 
forces; (2) the buoyancy force, which acts parallel to the 
esternal force, but in the opposite direction; and (3) the 
drag force, which appears whenever there is relative motion 
between the droplet and the fluid, and acts parallel to the 
direction of motion but in the opposite direction. In the 
present case, the direction of motion of a droplet relative 
to the fluid is not parallel to the direction of the external 
and buoyant forces, and therefore the drag force makes an 
angle with the other two forces. However, under the one-di- 
mensional approximation, the lines of action of all forces 
acting on the droplet are co-1 inear and therefore the forces 
may be added in obtaining a balance of momentum, as follows: 

_m_ du _ p p c 

g c dt '"e " r b " r D 

where F , and Fp are the external, buoyancy and drag 
forces respectively. 
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The external force can be expressed as the product of mass 
and acceleration, a g , of the droplet due to this force, and 
therefore 



In the present case, because of the large rotor speeds, the 
centrifugal acceleration is far larger than the gravitational 
acceleration. Thus 



where r is the radius and w, the angular velocity. The 
acceleration can also be written as follows: 



where V Q is the circumferential velocity of the droplet. For 
droplets passing through a rotor blade passage, the circumfer- 
ential component of the relative velocity, W 0 , should be used 
in place of V„. When there is a large change in whirl velocity 
between the inlet and outlet of a blade row, a mean value of 
velocity may be more applicable. 

The buoyancy force is, by Archimedes' Principle, the product 
of the mass of the fluid displaced by the droplet and the 
acceleration from the external force. The mass of fluid dis- 
placed is (m/p )p , where p is the density of water and p is 

** y vv y 

the density of the surrounding fluid. The buoyancy force is 
then given 

F b = »Ve /o w 9 c 

The drag force is expressed by the relation. 
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Fj = C r 


pgu 


2 A„ 


2 g. 


where Cp is the drag coefficient and Ap is the projected area 
of the droplet measured in a plane perpendicular to the direc- 
tion of motion of the droplet. The drag coefficient c Q can be 
expressed in a general form as follows: 

Cp = b-|/Re n 


where Re is the Reynolds nuntier based on relative velocity be- 
tween gas and droplet. The constants b-| and n are as follows. 

b i = 24. 0 » n = 1.0 when Re < 1.9 

b^ = 18.5, n = 0.6 when 1.9 < Re < 500 

b-j = 0.44, n = when 500 < Re < 200,000. 


The equation of droplet motion then becomes the following: 


^ = A/ r - B u 


2-n 


where 

A = < w e )2 ave ' (1 ~ VO’ 

B = 3 u n b 1 P g 1_n /4p w D 1+n , and 

D being the average droplet diameter. Over a small time inter- 
val, the equation of motion can be wirtten as follows: 

au = (A/r - B u 2 “ n ) At 


This equation can be used to determine the radial location of 
a droplet in a stage as follows: 
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(i) Select the initial values for u-j and r-j. 

(ii) Calculate the Reynolds number to determine the 

values of b-j and n. 

(iii) Calculate A and B. 

(iv) Calculate the change of u during time interval 
At. 

(v) Calculate the new velocity u 2 - 

u 2 = u-| + AU 

(vi) Calculate the change in location of droplet in 

terms of Ar. 

Ar = (u^ + u 2 ) / 2.0 • At 

(vii) Calculate the new radial location. 

r 2 = r-j + Ar 

(viii) Repeat the calculation for new value of u 2 and 

r 2 and progressively extend the calculation. 

The time interval should be sufficiently small in order to 
obtain reasonable accuracy. As stated in Section 2.1.3 in 
Chapter II of Reference 3, the length between the leading 
and trailing edges of a blade is divided into ten steps. 

The time interval At is then given by the relation, namely 


At 


chord J_ 
V x 10 


where V is the velocity of mixture in the blade passage. 


(2) Input Variables: 


RZERO 

droplet spanwise location at 

rotor inlet 

VZERO 

droplet spanwise velocity at 

rotor inlet 

DO 

droplet diameter 


VZ 

axial velocity 


OELZZ 

axial length of a stage 


ALFAAV 

average flow angle 


FN 

rotor blade rotational speed 
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IRS 

RHOGAS 

RHUB 

XG 

XA 

XVV 

XCH4 

RTIPIN 

IPRINT 


index for rotor or stator 
.density 
radius at hub 

mass fraction of gas phase 
mass fraction of dry air 
mass fraction of vapor 
mass fraction of methane 
radius at blade tip 
index for printout 


(3) Output Variables: 


R2 

U2 

ITIP 

VZTIME 


droplet spanwise location blade outlet 
droplet spanwise velocity at blade outlet 
index for droplet spanwise location 
time in which flow pass through a stage 


(4) Usage: 

CALL WICCEN (RZERO, VZERO, DD, VZ, DELZZ, ALFAAV, FN, IRS, 
RHOGAS, RHUB, R2, U2, ITIP, VZTIME, XG, XA, 
XVV, XCH4, RTIPIN, IPRINT) 


SUBROUTINE MICDMS 

(1) Description: 

The subroutine WICDMS is used for the calcualtion of amount of 
small droplets which is centrifuged. 

(2) Input Variables: 

index for printout 
index for spanwise location 
mass flow rate of water at rotor inlet 
mass flow rate of droplet 
mass flow rate of droplet 
droplet spanwise location rotor inlet 

droplet spanwise location at rotor outlet 

streamtube area 

radius of streamtube at its center 
radius at blade tip 


IPRINT 

I RAD 

AMASW1 

AMASWT 

AMASW 

R1 

R2 

STAREA 

RSTAVE 

RTIP 
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(3) Output Variables: 


DMIN 

amount of water that is centrifuged and enters 
into a streamtube 

DMOUT 

amount of water that is centrifuged and leaves 
from a streamtube 

AMASW2 

mass fraction of water at rotor outlet after 
correction for centrifugal action 

DELMAS 

net amount of water that is centrifuged 

(4) Usage: 



CALL WISDMS (IPRINT, IRAD, AMASW1 , AMASWT , AMASW , Rl , R2, 

STAREA, RSTAVE, RTIP, DMIN, DMOUT , AMASW2, DELMAS) 

SUBROUTINE WICDML 

(1) Description: 

The subroutine WICDML is used for the calculation of amount 
of large droplets which is centrifuged. 

(2) Input Variables: 


IPRINT 

index for printout 

IRAD 

index for spanwise location 

AMASW 1 

mass flow rate of water at rotor inlet 

AMASWT 

mass flow rate of droplet 

AMASW 

mass flew rate of droplet 

Rl 

droplet spanwise location rotor inlet 

R2 

droplet spanwise location at rotor outlet 

STAREA 

streamtube area 

RSTAVE 

radius of streamtube at its center 

RTIP 

radius at blade tip 

Output Variables : 

DMIN . 

amount of water taht is centrifuged and enters 
into a streamtube 

DMOUT 

amount of water that is centrifuged and left 
from a streamtube 

AMASW2 

mass fraction of water at rotor outlet after 
correction for centrifugal action 
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DELMAS 


net amount of water that is centrifuged 

(4) CALL WICDML ( IPRINT, IRAD, AMASW1 , AMASWT , AMASW , R1 , R2, 

STAREA, RSTAVE, RTIP, DMIN, DMOUT , AMASW2 , DELMAS) 

SUBROUTINE WICDRG 


(1) 

Description: 



The subroutine 

WICDRG is used for the calculation of drag 


force on droplet. 

(2) 

Input Variables: 


D 

droplet nominal diameter 


DELV1 

relative velocity between droplet and gas phase 



at blade inlet 


RHGAS1 

density of gas phase at blade inlet 


RHGAS2 

density of gas phase at blade outlet 

(3) 

Output Variables: 


CD2 

drag coefficient 


DEVL2 

relative velocity between droplet and gas phase 



at blade outlet 


DRAG1 

drag force 


RE 

Reynolds number 

(4) 

Usage: 



CALL WICDRG ( D, 

, DELV1 , RHGAS1 , RHGAS2, CD2 , DELV2, DRAG1 , RE) 

SUBROUTINE WICMAC 



(1) Description: 

Subroutine WICMAC calculates the Mach number in the gas-water 
droplet mixture. First the acoustic speed in. gaseous phase is 
determined by iteration as follows: 

(i) Assume Mach number and calculate static tempera- 

ture and density. 


t = 


fl + M 2 ] 
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p 


1 


P 01 /RT 01 

(ii) Calculate acoustic speed in gaseous phase 

a g = (y Rtg c ) 0 - 5 

(iii) Calculate the axial velocity 

V = m/pA 

(iv) Calculate absolute velocity 

V I = V z / cos a-! 

(v) Calculate Mach number 

M 1 = V a g 

Compare the calculated Mach number with the 
assumed value in (i). Iterate steps (i) to 
(v) until the desired accuracy is obtained. 
After determining the acoustic speed in gaseous 
phase. Function WICASD is called to determine 
the acoustic speed in droplet-laden gas flow. 

(2) Input Variables: 


ISTAGE 

stage number 


AMASS M 

mixture mass flow rate 


T01G 

total temperature of gaseous phase 


PRES 

total pressure 


XW1 

total water content 


ALFA 

stator outlet angle of the previous 

stage 

RMIX 

gas content of gaseous phase 


CPMIX 

specific heat at constant pressure 
phase 

for gaseous 

AREA! 

streamtube area of IGV outlet 



(3) Output Variables: 

M Mach number 
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vz 

c 


axial velocity 
acoustic speed in mixture 


(4) Usage: 

CALL WICMAC (ISTAGE, AMASS M, T01G, PRES, M, VZ, C, XW1 , 
ALFA, RMIX, CPMIX, AREA1 ) 


FUNCTION WICASD 

(1) Description: 

Function WICASD calculates the acoustic speed in droplet-laden 
gas flow. The following equation is used (Ref. 14). 


a 





where 

a g = acoustic speed in gaseous phase 

a w = acoustic speed in water 

Pg = density of gaseous phase 

p w = density of water 

a v = particulate liquid volume fraction 

x y/ = particulate liquid mass fraction 

°v “ x w p g / ( p w " *w < p w ~ p g^ 

(2) Input Variables: 

XW total water content 

RHOG density of gas phase 

CG acoustic speed of gaseous phase 

(3) Output Variable: 

WICASD acoustic speed in gas-water droplet mixture 

(4) Usage: 

WICASD (XW, RHOG, CG) 
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FUNCTION WICED 


(1) Description: 

Function WICED is called in Subroutine WICGSL. The equivalent 
diffusion ratio is obtained from the following equation. 


cose 2 z-j 


eq cosg-, V 

I Z/- 


1.12 + k (i - i*) 1 * 43 + 0.61 


cose-. 


AK3 


where 

V 

r 2 z 2 

K = tane-j - f y — tane-] 
1 2 1 


wr. 


■1 


r 21 

1 - ^ 


and where k = 0.0117 for NACA 65 (A-|q) blades and k = 0.007 
for the C4 airfoils. 


(2) Input Variables: 

AK3 constant, normally one 

VZl axial velocity at blade inlet 

VZ2 axial velocity at blade outlet 

UR1 rotor blade speed at rotor inlet 

R1 radius at blade inlet 

R2 radius at blade outlet 

BET1 blade inlet flow angle 

BET2 blade outlet flow angle 

SIGUMA solidity 

AINCIS incidence at design point 

AINCI incidence 

(3) Output Variable: 

WICED equivalent diffusion ratio 

(4) Usage.: 

WICED (AK3, VZl, VZ2, UR1 , R1 , R2, BET1 , BET2 , SIGUMA, AINCIS, 
AINCI) 
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FUNCTION WICMTK 


(1) Description: 

Function WICMTK is called in Subroutine WICGSL. The ratio of 
wake momentum thickness and chord are obtained from the follow- 
ing equations. 


(f) = (f)*+ (0.827 M 1 - 2.692 M 3 + 2.675 M 3 ) (D 0q - D eq *) 2 -AK2 


for D > D * 
eq eq 

(f) = (£)* + (2.80 M, - 8.71 + 9.36 M^) (D eq - D eq )*-AK2 


f or D eq < 


D * 
eq 


(2) Input Variables: 

AK2 constant, normally one 

SITACS ratio or wake momentum thickness to chord at 

design point 

AMACH1 blade inlet Mach number 

DELDEQ difference between equivalent diffusion ratio 

and equivalent diffusion ratio at design point 

(3) Output Variables: 

WICMTK ratio of wake momentum thickness to chord 

(4) Usage: 

WICMTK (SITACS, AMACH1, DELDEQ, AK2) 


FUNCTION WICLOS 

(1) Description: 

Function WICLOS is called in Subroutine WICGSL and calculates 
the total pressure loss coefficient from the following equation 

- - /6i _2o_ 2 

01 ^c J cos & 2 icos3 2 . 
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(2) Input Variables: 



BET! 

blade inlet flow angle 


BET2 

blade outlet flow angle 


SIGUMA 

sol idity 


SITA 

ratio of momentum thickness to chord 

(3) 

Output Variable: 


WICLOS 

total pressure loss coefficient 

(4) 

Usage: 

WICLOS (BET! 

, BET2, SIGUMA, SITA) 

SUBROUTINE WICIRS 


(1) 

Description: 



Subroutine WICIRS is called at outlet of rotor and performs 
the calculation of droplet impingement and rebound in rotor 


passage for 

small droplet. 

(2) 

Input Variables: 


ISTAGE 

stage number 


R 

blade radius of streamline 


XW1 

mass fraction of small droplet 


XG 

mass fraction of gaseous phase 


RH0G1 

density of gaseous phase 


BETA1 

rotor inlet relative flow angle 


W1 

rotor inlet relative velocity 

(3) 

Output Variables: 


WW1 

amount of water that impacts stagnation 


WW2 

amount of water that impact aft of blade 


WW 

total amount of water that impact blade 

(4) 

Usage: 



CALL WICIRS (ISTAGE, R, XW1.XG, RH0G1 , BETA1 , W1 WW1 , WW2, 
WW) 
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SUBROUTINE WICIRL 


(1) Description: 

Subroutine WICIRL is called at outlet of rotor and performs 
the calculation of droplet impingement and rebound in rotor 
passage for large droplet. 

(2) Input Variables: 

ISTAGE stage number 

R blade radius of streamline 

XW1 mass fraction of large droplet 

RH0G1 density of gaseous phase 

BETA1 rotor inlet relative flow angle 

W1 rotor inlet relative velocity 

(3) Output Variables: 

WW1 amount of water that impacts upper surface of 

blade 

WW2 amount of water that impact lower surface of 

blade 

WW total amount of water that impact blade surface 

(4) Usage: 

CALL WICIRL (ISTAGE, R, XW1 , XG, RH0G1 , BETA1 , W1 , WW1 , 

WW2, WW) 

SUBROUTINE WICISS 

(1) Description: 

Subroutine WICISS is claled outlet of stator and performs the 
calculation of droplet impingement and rebound in stator pas- 
sage for small droplet. 

(2) Input Variables: 

ISTAGE stage number 

R blade radius at streamline 

XW mass fraction of small droplet 

XG mass fraction of gaseous phase 

RH0G1 density of gaseous phase 
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ALFA2 stator inlet absolute flow angle 

W1 stator inlet absolute velocity 

(3) Output Variables: 

WW1 amount of water that impact stagnation region 

of blade 

WW2 amount of water that impact off of blade 

WW total amount of water that impact the blade 

(4) Usage: 

CALL WICISS (ISTAGE, R, XW, XG, RH0G1 , ALFA2, W1 , WW1 , WW2, 
WW) 

SUBROUTINE WICISL 

(1) Description: 

Subroutine WICISL is called at outlet of stator and performs 
the calculation of droplet impingement and rebound in stator 
passage for large droplet. 

(2) Input Variables: 

ISTAGE stage number 

R blade radius at streamline 

XW mass fraction of large droplet 

XG mass fraction of gaseous phase 

RH0G1 density of gaseous phase 

ALFA2 stator inlet absolute flow angle 

W1 stator inlet absolute velocity 

(3) Output Variables: 

WW1 amount of water that impact upper surface of 

blade 

WW2 amount of water that impact lower surface of 

blade 

WW total amount of water that impact on blade 

surface 
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(4) Usage: . 

CALL WICISL (ISTAGE, R, XW, XG, RH0G1 , ALFA2, W1 , WW1 , WW2, 

MW) 

SUBROUTINE MICMAK 

(1) Description: 

Subroutine WICWAK is called at rotor outlet and stator outlet, 
and calculates the droplet size of water that is re-entrained 
at trailing edge of rotor and stator blades. 

The size of droplet which is re-entrained into the wake at the 
blade trailing edge is calculated as follows: 

(i) Assume a value for a droplet diameter, d, that 
is re-entrained into wake. 

(ii) Calculate the stability number, SN. 

S N = Uf / Pg<* d 9 c 

(iii) Calculate the critical Weber number 

W = 12 (l + (SN) 0 ' 36 ] 
e J 

(iv) Calculate the largest stable droplet diameter 

w ag r 

d = — 
max P 2 

g 

(v) Compare the assumed droplet diameter with the 
calculated one. Iterate entire steps until the 
satisfactory agreement is obtained. 

(2) Input Variables: 

RHOG density of gaseous phase 

V velocity of gaseous phase for small droplet or 

relative velocity between droplet and gaseous 
phase for large droplet 
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(3) Output Variables: 

DWAKE droplet size that re-entrained at trailing edge 

in (ft 3 ) 

DWAKEM droplet size that re-entrained at trailing edge 

in (ym) 

(4) Usage: 

CALL WICWAK (RHOG, V, DWAKE, DWAKEM) 

SUBROUTINE WICHET 

(1) Description: 

Subroutine WICHET is called at end of stage to perform the 
heat transfer calculation between water droplet and gaseous 
phase. The heat transfer rate can be determined from the 
following equation: 

$ = h h A < T g - T w> 

where h h is the heat transfer coefficient. A, the droplet sur- 
face area, T w , the droplet surface temperature, and T g , the 
temperature of the surrounding gas. The heat transfer coeffi- 
cient can be expressed as follows: 



where k is the thermal conductivity of air, and Nu, the 

a 

Nusselt number. The Nusselt number can be expressed in terms 
of the dimensionless groups as follows (Ref. 16): 

Nu = 2.0 + 0.6 (Re) 0 * 50 (Pr) 0 * 33 

where Re is the Reynolds number based on the relative velocity 
between the droplet and the surrounding air, and Pr is the 
Prandtl number. 

After calculating the temperature rise of the water and gas 
phase due to the work done by the rotor, the heat transfer 
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calculation is carried out as follows: 

(i) Calculate the average droplet diameter, D d . 

(ii) Calculate the number of droplets, N d - 


(Ill) 

(iv) 

(v) 

( vi ) 


(vii) 


( vi i i ) 



V 


»„ I ’<V 2 > 3 


A Z 
V 

z 


where is the mass flow rate of water phase, 

p.., the density of water, V . the axial direction 
w z 

velocity, and Az, the axial length of one stage. 
Calculate the droplet surface area, A. 

Calculate the Nusselt number, Nu. 

Calculate the heat transfer coefficient, h h - 
Calculate the stage outlet temperature for drop- 
let and gas without heat transfer, that is 


T„ - T„ + (AT„) 


’1 


g'wk 


^ w 2 Tw l + 


where UT g ) wk and UT w ) wk are the temperature 
rise of gas and water due to work done by rotor. 
Calculate the amount of heat transferred from 
the gas to the droplet. 


a H h h A ( T g2 " T w2^ 


Calculate the temperatures rise of the droplet 
and the temperature drop of the surrounding gas. 


< iH g>ht = H/m g C s 
< aH w>ht = H/ % C w 

where C is the specific heat for water and C^ 
w s 

is the. humid, heat for air-water mixture. 
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(ix) Calculate the stage outlet temperature for 
droplet and gas. 

T g2 = T gl + ^ A Vwk ' ^ AT g^ht 

T w 2 ' T wl + ^ AT w^wk + ^ AT w^ht 

(x) Using the temperature calculated in step (ix), 
repeat the steps (vii) to (ix) until a desired 
accuracy is obtained. 

(2) Input Variables: 

TGI temperature of gaseous phase at stage inlet 

TG3 temperature of gaseous phase at stage outlet 

TW1 temperature of droplet at stage inlet 

TW3 temperature of droplet at stage outlet 

DAVEN2 droplet nominal diameter at stage inlet 

DAVEN droplet nominal diameter at stage outlet 

DELZI length of stage 

VZ axial velocity 

WMASS1 mass flow rate of water 

VMASS1 mass flow rate of vapor 

AMASS mass flow rate of dry air 

CHMASS mass flow rate of methane 

CPG specific heat constant pressure to gaseous 

phase 

CPW specific heat of water 

RE Reynolds number based on relative velocity 

between droplet and gaseous phase 

(3) Output Variables: 

DELIGH temperature drop in gaseous phase due to heat 

transfer between water droplet and gaseous phase 
DELTWH temperature rise in droplet due to heat transfer 

between water droplet and gaseous phase 
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. (4) Usage: 

CALL WICHET (TG],-TG3, TW3, DAVEN2, DAVEN, DELZI , VZ, WMASS1 , 
VMASS1 , AMASS, CHMASS, CPG, CPW, DELIGH, DELTWH, 

RE) 

SUBROUTINE WICMAS 

(1) Description: . 

Subroutine WICMAS is called at end of stage to perform the 
mass transfer calculation between water droplet and gas phases. 

The mass transfer rate can be calculated by the following 
equation: 

ib V < c wb' V 


where h m is the mass transfer coefficient. A, the droplet sur- 
face area, C wb , the water vapor concentration at droplet surface, 
and C w , the water vapor concentration in fluid flow around drop- 
let. 

Since the density represents the mass concentration, and the 
vapor is almost a perfect gas, the mass transfer rate can be 
expressed in terms of vapor pressure as follows: 

I? ' h m A (p wb - p w> 


or 


dm _ 
dt 


fP 


h m A 
m 


wb. 


wb 




where : R y is the. gas constant, for water vapor, P wb , the vapor 
pressure at. droplet surface, P , the vapor pressure in fluid 
flowing around droplet, T wb , the vapor temperature at droplet 
surface, and T , the vapor temperature in fluid flowing around 
drop! et . 

The surface area. A, for the droplet cloud is given by the 
relation ,. 



A ■ *°d N d 

where is the average droplet diameter, and N^, the number 
of droplets. 

The mass transfer coefficient, h m is expressed as follows: 



A semi -empi ri cal equation for the diffusion coefficient in 
gases is given by the following (Ref. 15): 


D y = 435.7 


1-3/2 


P(V . 1/3 - v„ 1/3 )‘ 


r \ 



1/2 


where D y is in square centimeters per second, T is in degree 
Kelvin, p is the total system pressure in Newtons per square 
meter, and V A and V B are the molecular volumes of constituents 
A and B as calculated from the atomic volumes. and M g are 
the molecular weights of constituents A and B. For water-air 
systems, the numerical values of V^, V g , M^, and M g are given 
as follows: 



29.9 


M a - K a1r - 28.9 


V B \ater = 18.8 


M B ^water - 18.0 


When the relative velocity between a single droplet and the 
surrounding fluid approaches zero, the following relationship 
is used to determine the mass transfer rate: Sh = 2.0. 

Mass transfer rates increase with increase in relative velocity 
between the droplet and the surrounding air due to the additional 
mass transfer caused by the convection in the boundary layer 
around the droplet. The mass transfer coefficient from a spher- 
ical droplet can be expressed in terms of dimensionless groups 


103 



as follows: 


Sh = 2.0 + k (Re) x (Sc) y 

where Re is the Reynolds number based on relative velocity, 
which expresses the ratio of inertial force to viscous force, 
and Sc is the Schmidt number, which expressed the ratio of 
kinetic viscosity to molecular diffusivity. 

There is much discussion over the values of x, y, and k. The 
form most widely applied is the Ranz and Marshall equation 
(Ref. 16) which is: 

Sh = 2.0 + 0.6 (Re) 0,50 (Sc) 0 ' 33 


The procedure for determining the mass transfer rate is as 
follows. 


(i) 

(ii) 

(iii) 

(iv) 

(v) 

(vi) 

(vii) 


(viii) 

(ix) 

(x) 


Calculate the Sherwood number, Sh. 

Calculate the diffusion coefficient, D v . 

Calculate the average droplet size, D^. 

Calculate the mass transfer coefficient, h m - 
Calculate the total number of droplets, Ng. 
Calculate the total surface area for all droplets. 
Calculate the water vapor pressure at droplet 
surface, ^wb’ based on the droplet surface 
temperature, T $ . 

Assume the vapor pressure, p w , and set P w = (P w ) a - 
Calculate the mass transfer rate, . 

Calculate the new value of water mass flow rate. 


• _ • dm 

m w m v " dt 


(xi) 


Calculate the new value of vapor mass flow rate. 


m. 


m. 


dm 

dt 
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(xii) Calculate the specific humidity, W. 

W = m v /m a 

where m is the air mass flow rate. 

a 

(xiii) Calculate the vapor pressure. 

(xiv) Compare the calculated value, (P w ) c , with the 
assumed value (p,,),. If (p U) L agrees reasonably 
well with the assumed value (p w ) c proceed to step 
(xv). Otherwise, steps (viii) to (xiv) should be 
repeated. 

(xv) Using the determined p w , the mass transfer rate 
is calculated. Also, the specific humidity can 
be determined by the following equation: 

P 

W = 0.6219 

K w 


(2) Input Variables: 


HW1 

TW1 

TW2 

PP1 

PP2 

TGI 

TG2 

DZ 

VZ 

DDAVE1 

DDAVE2 

AMASS 

RE 

VMASS1 

WMASS1 


specific humidity at stage inlet 
temperature of droplet at stage inlet 
temperature of droplet at stage outlet 
pressure of gaseous phase stage inlet 
pressure of gaseous phase at stage outlet 
temperature of gaseous phase at stage inlet 
temperature of gaseous phase at stage outlet 
length of stage 
axial velocity 

droplet nominal diameter at stage inlet 

droplet nominal diameter at stage outlet 

mass flow rate of air 

Reynolds number based on relative velocity 

between droplet and gaseous phase 

mass flow rate of water vapor at stage inlet 

mass flow rate of water droplet at stage outlet 
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(3) Output Variables: 

HW2 specific humidity at stage outlet 

VMASS2 mass flow rate of water vapor at stage outlet 

WMASS2 mass flow rate of water droplet at stage outlet 

DMDTAV average mass transfer rate across stage 

(4) Usage: 

CALL WICMAS (HW1 , TW1 , TW2, PP1 , PP2, TGI, TG2 , DZ, PWB1 , 

PWB2, PW1, PW2, VZ, DDAVE1 , DDAVE2, HW2 , VMASS1, 
VMASS2 , WMASS1, WMASS2, DMDTAV, AMASS, RE) 

FUNCTION WICMTR 

. (1) Description: , 

Function WICMTR is called in Subroutine WICMTR and calculates 
the mass transfer rate. 

(2) Input Variables: 

TTG temperature of gaseous phase 

TTW temperature of water droplet 

PPP pressure of gaseous phase 

DAVW droplet nominal diameter 

VZ axial velocity 

DZ length of stage 

MMASS mass flow rate of mixture 

PW vapor pressure 

RE Reynolds number based on relative velocity 

between droplet and gaseous phase 

(3) Output Variable: 

DMDT mass transfer rate 

(4) Usage: 

WICMTR (TTG, TTW, PPP, DAVE, VZ, DZ, MMASS, PW, RE) 
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FUNCTION IWICPWB 


(1) Description: 

Function WICPWB calculates the saturation pressure for water 
vapor is a function at temperature as follows: 

log )0 P s - A - B/T 

o 

where units are (Kg/cm ) for p $ and (K) for T. The values of 
constant A and B are given as follows: 

A = 5.97780, B = 2224.4 when 20° C < T < 100°C 

A = 5.64850, B = 2101.1 when 100°C < T < 200°C 

A = 5.45142, B = 2010.8 when 200°C < T < 350°C 

(2) Input Variable: 

TWB temperature of gaseous phase 

(3) Output Variable: 

WICPWB saturation pressure for water vapor 

(4) Usage: 

WICPWB (TWB) 

FUNCTION WICNEW 

(1) Description: 

Function WICNEW is used to estimate the new trial value in 
the iteration procedure. 

(2) Input Variables: 

XI first trial value 

Y1 calculated value corresponds to XI 

X2 second trial value 

Y2 calculated value corresponds to X2 

(3) Output Variable: 

WICNEW new trial value 

(4) Usage: 

WICNEW (XI, Yl, X2, Y2) 
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FUNCTION WICTAN 


(1) Description: 

Function WICTAN(X) is used to obtain the ratio of SINE(X) 
to COSINE(X) , that is, TAN(X) . 

(2) Input VAriable: 

X angle 

(3) Output Variable: 

WICTAN value of TAN(X) 

(4) Usage: 

WICTAN(X) 

FUNCTION WICBPT 

(1) Description: 

Function WICBPT calculates the temperature at boiling point. 

(2) Input Variables: 

TSTAG temperature 

PSTAG pressure 

(3) Output Variable: 

WICBPT temperature at boiling point 

(4) Usage: 

WICBPT (TSTAG, PSTAG) 

FUNCTION WICSH 

(1) Description: 

Function WICSH calculates the specific humidity. 

(2) Input Variables: 

TSTAG temperature 

PSTAG pressure 

(3) Output Variable: 

WICSH specific humidity 
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(4) Usage: 

WICSH (TSTAG, PSTAG) 

SUBROUTINE WICSIZ 

(1) Description: 

Subroutine WICSIZ is called at outlet of rotor and stator to 
determine the nominal droplet sizes. It is assumed that two 
kinds of droplets exist at inlet of compressor; namely, small 
droplet and large droplet. However, at trailing edge of each 
blade, the new droplets are re-entrained into blade wake. The 
droplets which are larger than DLIMIT are treated as large 
droplets and droplets which are smaller than DLIMIT are treated 
as small droplets. Each droplet size weighted based on its 
mass fraction in determining the nominal droplet size. There- 
fore, at outlet of each blade row. Subroutine WICSIZ gives two 
nominal diameters; one for small droplet and one for large 
droplet. It may be noted that only two classes of droplets 
are recognized in the model. 

(2) Input Variables: 


WMASSL 

mass flow rate of large droplet 

WMASSS 

mass flow rate of small droplet 

AMING1 

amount of water which is to be re-entrained 
into wake, originally small droplet 

AMING2 

amount of water which is to be re-entrained 
into wake, originally large droplet and upper 
part 

AMING3 

amount of water which is to be re-entrained 
into wake, originally large droplet and lower 
part 

DL 

droplet nominal size for large droplet before 
impingement 

DS 

droplet nominal size for small droplet before 
impingement 

D1 

droplet size associated with AMING1 
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D2 

D3 

□LIMIT 


droplet size associated with AMING2 
droplet size associated with AMING3 
largest droplet diameter which can be treated 
as small droplet 


( 3 ) 


Output 

AMSLL 

AMLGE 

DSLL 

DLGE 


Variables: 

mass flow rate of small droplet after re-entrain 
ment 

mass flow rate of large droplet after re-entrain 
ment 

droplet nominal size for small droplet 
droplet nominal size for large droplet 


(4) Usage: 

CALL WICSIZ (WMASSL, WMASSS, AMING1, AMING2, AMING3, DL, DS, 
Dl, D2, D3, DLIMIT, AMSLL, AMLGE, DSLL, DLGE) 


SUBROUTINE WICPRP 

(1) Description: 

Subroutine WICPRP determines the flow properties such as gas 
constant specific, heat ratio, and specific heat at constant 
pressure for the gaseous mixture. The working equations are 
as follows: 


R mix = V R a + V R v + V R c 


c pmi x 

%ix 

where 


Y • r + X • c 

*a pa v pv 


1.0 - - 


R • 1 
mix 


c . J , 
pmix J 


-1 


+ X *c 
c pc 


x a = mass fraction of air in gaseous mixture 

x v = mass fraction of water vapor in gaseous mixture 

x c = mass fraction of methane in gaseous mixture 
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R a = gas constant of air 

R y = gas constant of water vapor 

R c = gas constant of methane 

R^ = gas constant mixture 

Cp a = specific heat constant pressure for air 

Cp V = specific heat constant pressure for water vapor 

c pc = specific heat at constant pressure for methane 

Cpmix = specific heat at constant pressure for mixture 

r mix = s P ec i' fric ^ eat ratio for mixture 


(2) Input Variables: 

XAIR mass fraction of air in gaseous mixture 

XH20 mass fraction of water vapor in gaseous mixture 

XCH4 mass fraction of methane in gaseous mixture 

T temperature of gaseous mixture 

Output Variables: 


(3) 


(4) 


RMIX 

CPMIX 

GAMMA 

G1 

G2 

G3 


gas constant of gaseous mixture 
specific heat constant pressure for gaseous 
mi xture 

specific heat ratio of gaseous mixture 
value for GAMMA/ (GAMMA -1.0) 
value for (GAMMA - 1.0)/2.0 
value for -1.0/ (GAMMA - 1.0) 


Usage: 

CALL WICPRP (XAIR, XH20, XCH4, T, RMIX, CPMIX, GAMMA, G1 , G2, 
G3) 


FUNCTION WICCPA 

(1) Description: 

Function WICCPA calculates the specific heat at constant pres- 
sure for air as a function of temperature as follows (Ref. 17) 
c p = (a + aT = cT 2 + dT 3 + eT 4 )R 
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where units are (J/kg - K) for c p > (K) for T, and (J/kg - K) 
for R. The values of coefficients a, b, c, d, and e are as 
follows: 

a = 3.65359 
b = -1.33736 x 10" 3 
c = 3.29421 x 10' 6 
d = -1.91142 x 10' 9 

e = 0.275462 x 10" 12 

(2) Input Variable: 

T temperature 

(3) Output Variable: 

WICCPA specific heat constant pressure 

(4) Usage: 

WICCPA (T) 

FUNCTION WICCPH 

(1) Description: 

Function WICCPH calculates the specific heat at constant 
pressure for water vapor as a function of temperature as 
follows (Ref. 17): 

c p = (a + bT + cT 2 + dT 3 + eT 4 )R 

Where units are (J/kg - K) for c p , (K) for T, and (J/kg - K) 
for R. The values of coefficients a, b, c, d, and e are as 
follows : 

a = 4.07013 
b - -1.10845 x 10' 3 
c - 4.15212 x 10‘ 6 
d = -2.96374 x 10 -9 
e = Q.807021 x TO -12 
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temperature 


(2) Input Variable: 

T 

(3) Output Variable: 

WICCPH specific heat at constant pressure 

(4) Usage: 

WICCPH (T) 

FUNCTION WICCPC 

(1) Description: 

Function WICCPC calculates the specific heat at constant 
pressure for methane as a function of temperature as follows 
(Ref. 17): 

c p = (a + bT + cT 2 + dT 3 + eT 4 )R 

where units are ( J/kg - k) for c p , (K) for T, and (J/kg - K) 
for R. The values of coefficients a, b, c, d, and e are as 
f ol 1 ows : 

a = 3.82619 
b = -3.97946 x 10" 3 
c = 24.5583 x 10" 6 
d = -22.7329 x 10 -9 
e = 6.92760 x 10" 12 

(2) Input Variable: 

T temperature 

(3) Output Variable: 

WICCPC specific heat constant pressure 

(4) Usage: 

WICCPC (T) 
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jVppEHDl^ ^ 


progrW source use 
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UNIVERSITY OF MINNESOTA FORTRAN COMPILER (VERSION 5.3 - 03/21/80) ON PURDUE MACE SYSTEM 


MNFFTN(E=3) 


OOOOOOB 


PROGRAM MAIN( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=0UTPUT) 


C PROGRAM PURDU-UINCOF 


C ABSTRACT: 

C THIS PROGRAM CODE HAS BEEN PRODUCED FOR THE STUDY OF AN AXIAL FLOW 
C FAN-COMPRESSOR PERFORMANCE DURING A GAS-WATER DROPLET MIXTURE FLOW. 

C THE MIXTURE MAY CONSIST OF TWO TYPES OF DROPLET SIZES AND THREE 
C KINDS OF GASEOUS PHASES. THIS PROGRAM CODE IS WRITTEN ESPECIALLY 
C FOR AIR+UATER-UAP0R+METHANE+5MALL DROPLET+LARGE DROPLET. 

C THIS FORTRAN COMPUTER CODE CAN PREDICT THE DESIGN AND OFF-DESIGN 
C PERFORMANCE UTILIZING A STAGE-BY-STAGE CALCULATION. 

C THIS COMPUTER PROGRAM CODE HAS BEEN DEVELOPED AT PURDUE UNIUERSITY, 

C THERMAL SCIENCE AND PROPULSION CENTER, WEST LAFAYETTE, INDIANA 4Z906. 

C THE AUTHOR OF THIS PROGRAM CODE IS TOSHIAKI TSUCHIYA, 

C PURDUE UNIVERSITY , DEPARTMENT OF AERONAUTICS AND ASTRONAUTICS, 

C GRADUATE INSTRUCTOR IN RESEARCH. 

C 

2. 002131B REAL MD, NU, KA, M, MMASS, MMASS1 

3. 002I31B REAL MMASSO 

4. 002131B COMMON JPERFM, RHOG03) , RERUP, RERLOW, RESUP, RESLCW 

", PREB, RRTIPC20 ) , SRTIPC20 ) , AAAI , AAA2, AAA3, SAREA(20) » SAREASC20 ) 
",P(3),TG(3),XA,XU(3).XCH4.XW(3),XWW(3),XWT(3),TU(3),TWW(3) 

- , OMEGS ( 20 ) , OMEGR (20),GAPR(20), GAPS ( 20 ) 

",RRHUB(20) , RC(20) , RBLADEC20) , STAGER(20) 

~,SRHUB(20) , SC (20) , SBLADE(20),STAGES(20) 

-,SIGUMR(20) , BET1SR(20 ) , BET2SR(20) . AINCSR(20) , ADEUSR(20) 
-,SIGUMS(20) , BET1SS(20) , BET2SS(20) , AINCSS(20) , ADEUSS(20) 
",UTIPG(20),UTIP(20),UTIPD(20),UDU(20),UMEAN(20),UHUB(20),U(20),FAI 
", AREA (20 ) , AREAS (20 ) , UU2(20 ) » UTIP2(20 ) » UMEAN2(20 ) , UHUB2(20 ) , IPRINT 
", ICENT, IICENT,FMR1(20),FMA2(20), IDESIN.FAID 

", NS, NSF, NSLPC, BYPASS, NS1, RT ( 20 ),RM(20),RH(20),ST(20),SM(20),SH(20) 
", DSMASS, AAREA(EO) , AAREASC20) , PR12DC20 ) , PR13D(20 ) , ETARD(20) 

- , DR ( 20 ) , DS ( 20 ) , DEQR ( 20 ) , DEQS( 20 ) , BLOCK ( 20 ) , BLOCKS ( 20 ) 

", BET1MR(20 ), BET2MR(20 ), EET 1MS(20 ) , BET2MSC20) , RADII (20 ),RADI2(20) 
",FAIRIN(20).FAIOUT(20),ETASG(20),PSID(20),TAUD(20),SITADR(20) 

", SITADSC20 ) , WWD(20 ) , VVD(20 ) 


5. 

002131B 

DIMENSION D(20, 3) , XD(20,3) , XXD(20,3), 

, WS(3),WMASS(3)»UMAS3(3)» RHOA (3),RH0M(3),TB(3) 

G. 

002131B 

DIMENSION 

TD(20), DELZ(20),ETAA(20) 

7 . 

002131B 

DIMENSION 

XXA ( 3 ) , XXV ( 3 ) , DAUE ( 20 ) 

8. 

002131E 

DIMENSION 

TDEW(3) 

9. 

002131B 

DIMENSION 

DDAVE ( 20 ) , WWMASS ( 3 ) , WTMASS ( 3 ) 

10. 

002131B 

DIMENSION 

T M ASS ( 3 ) , GMASS ( 3 ) , XA I R ( 3 ) » XMET AN ( 3 ) , XGAS (3),FAISTL(20) 

11. 

002131B 

DIMENSION 

XBLEEDC20) 

12. 

002131B 

DIMENSION 

PRREF ( 20 ) , TRREF ( 20 ) , ETAREF ( 20 ) 


+++++++++++++++++++++-M 

INPUT DATA 


>-:•+++++++++ 


C NS NUMBER OF STAGE (TOTAL) 

C NSF NUMBER OF STAGE (FAN) 

C NSLPC NUMBER OF STAGE ( LOW PRESSURE COMPRESSOR ) 

C NSHPC NUMBER OF STAGE ( HIGH PRESSURE COMPRESSOR ) 

C RRHUB(I) ROTOR INLET RUDIUS AT HUB FOR I-TH STAGE IN 3 
C RC( I ) ROTOR CHORD FOR I-TH STAGE IN INCH 

C RBLADE(I) NUMBER OF ROTOR BLADE FOR I-TH STAGE 


NCH 



nnnnnnnnnnnnnnnnnnnnnnnnrmnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn 


STAGER ( I ) 
SRHUB(I) 
SCCI) 
SELADE(I) 
STAGES ( I ) 

SIGUMRC I ) 
SIGUMS(I) 
BET2SSC I ) 

FNF 

XDIN 

XDDIN 

ICENT 

I ICENT 


ICENTU 


TOG 

TOW 

PO 

DIN 

DDIN 

FND 

FNDLPC 

FNDHPC 

TOID 

P01D 

XCH4 

RHUMID 

FNUA 

FNWU 

FNWC 

PREB 

DLINIT 

GAPRCI) 

GAPS (I) 

RRTIPCI) 

SRTIP(I) 

IRAD 


RT( I ) 
RM( I ) 


ROTOR STAGER ANGLE FOR I-TH STAGE IN DEGREE. 

STATOR INLET RUDIUS AT HUB FOR I-TH STAGE IN INCH 
STATOR CHORD FOR I-TH STAGE IN INCHC I=NS+1 , IGU) 

NUMBER OF STATOR BLADE FOR I-TH STAGE CI=NS+1 FOR IGU) 
STATOR STAGER ANGLE FOR I-TH STAGE IN DEGREE (I=NS+1 FOR 
IGU) 

SOLIDITY OF ROTOR FOR I-TH STAGE 
SOLIDITY OF STATOR FOR I-TH STAGE 

STATOR OUTLET ABSOLUTE FLOW ANGLE AT DESIGN POINT FOR I-TH 
STAGE IN DEGREE 

FRACTION OF DESIGN CORRECTED ROTOR SPEED FOR A PARTICULAR 
SPEED 

INITIAL WATER CONTENT (MASS FRACTION) OF SMALL DROPLET 
INITIAL WATER CONTENT (MASS FRACTION) OF DARGE DROPLET 
INDEX FOR CENTRIFUGAL CALCULATION (ICENT=1 WHEN XDIN=0 
OTHERWISE ICENT=2) 

SAME AS ICENT 

ICENT=3. IICENT=3: NO HEAT AND MASS TRANSFER 
ICENT=4« IICENT=4: NO CENTRIFUGAL ACTION 
ICENT=5« IICENT=5: NO HEAT AND MASS TRANSFER: AND 
NO CENTRIFUGAL ACTION 
ICENT=G, IICENT=S: NO MASS TRANSFER 
I CENT=7 . 1 1 CENT=7 : NO MASS TRANSFER; AND 
NO CENTRIFUGAL ACTION 
INDEX FOR CENTRIFUGAL ACTION OF UAPOR 
ICENTU=0: UAPOR IS CENTRIFUGED 
ICENTU=l: UAPOR IS NOT CENTRIFUGED 
TOTAL TEMPERATURE AT COMPRESSR INLET IN RANKIN 
WATER DROPLET TEMPERATURE AT COMPRESSOR INLET IN RANKIN 
TOTAL PRESSURE AT COMPRESSOR INLET IN LB/FT*«2 
INITIAL WATER DROPLET DIAMETER IN MICR0N(5MALL DROLLET) 
INITIAL WATER DROPLET DIAMETER IN MICRON (LARGE DROPLET) 
ROTOR ROTATIONAL SPEED AT DESIGN SPEED IN RPM 
(FAN AND LOW PRESSURE COMPRESSOR ) 

ROTOR ROTATIONAL SPEED AT DESIGN SPEED IN RPM 
( LOW PRESSURE COMPRESSOR ) 

ROTOR ROTATIONAL SPEED AT DESIGN SPEED IN RPM 
( HIGH PRESSURE COMPRESSOR ) 

DESIGN UALUE FOR COMPRESSOR INLET TOTAL TEMPERATURE 

DESIGN UALUE FOR COMPRESSOR INLET TOTAL PRESSURE 

INITIAL METHANE CONTENT 

INITIAL RELATIUE HUMIDITY 

MOLECOLAR WEIGHT OF AIR 

MOLECULAR WEIGHT OF WATER UAPOR 

MOLECULAR WEIGHT OF METHANE 

PERCENT OF WATER THAT REBOUND AFTER IMPINGEMENT 
MAX. DIAMETER FOR SMALL DROPLET 

GAP BETWEEN I TH STAGE ROTOR AND 1-1 TH STAGE STATOR 
GAP BETWEEN I TH STAGE STATOR AND 1-1 TH STAGE ROTOR 
ROTOR INLET TIP RADIUS FOR I-TH STAGE 
STATOR INLET TIP RADIUS FOR I-TH STAGE 
INDEX FOR RADIUS AT WHICH CALCULATION IS CARRIED OUT 
IRAD=i: TIP 
IRAD=2: MEAN 
IRAD=3: HUB 

IRAD=4: MEAN FOR FAN AND TIP FOR LPCrHPC 
ROTOR INLET RADIUS AT WHICH TIP PERFORMANCE CALCULATION 
IS CARRIED OUT. 

ROTOR INLET RADIUS AT WHICH MEAN LINE PERFORMANCE 
CALCULATION IS CARRIED OUT. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


13. 

002131B 


READC5.99) NS , NSF, NSLPC, NSHPC 

14. 

003023B 

99 

FORMAT C4I2) 

15. 

003023B 


IFCNSF.EQ.O) NS1=NS+1 

IB. 

003026B 


I F C NSF . GT . 0 ) NS1=NSF+NSLPC+NSHPC+ 1 

17. 

003032B 


IF CNSF.GT. 0) NS=NSF +NSLPC+NSHPC 

18. 

003036B 


READC5.100) CRRHUBCI), 1=1, NS) 

19. 

00304SB 

100 

FORMAT C1GF5.3) 

20. 

003046B 


READC5, 11DCRCCI), 1=1, NS) 

21. 

003056B 

111 

FORMAT C 1GF5. 3) 

22. 

003056B 


READ C 5, 112) CRBLADEC I ) , 1=1, NS) 

23. 

003066B 

112 

FORMAT C 1GF5.2) 

24. 

003066B 


READ C 5, 113) C STAGER ( I ) ,1=1, NS) 

25. 

003076B 

113 

FORMAT C1GF5. 2) 

2B. 

003076B 


READC5, 114) CSRHUBC I ) , 1=1, NS1 ) 

27. 

003106B 

114 

FORMAT C 1GF5. 3) 

28. 

00310GB 


READC5, 115) CSCCI), 1 = 1, NS1) 

29. 

0031 IBB 

115 

FORMAT C1GF5. 3) 

30. 

00311GB 


READ C 5, 11G) CSBLADECI), 1 = 1, NS 1) 

31. 

00312SB 

116 

FORMAT C 1GF5.2) 

32. 

003128B 


READC5, 140 ) C STAGES C I), 1 = 1, NS 1) 

33. 

00313GB 

140 

FORMAT (1GF5. 2) 

34. 

00313GB 


READ C 5, 117) CSIGUMRC I ) , 1 = 1 , NS) 

35. 

00314GB 

117 

FORMAT C 1GF5.3) 

36. 

00314GB 


READ C 5, 122) CSIGUMSC I ) ,I=1,NS1) 

37. 

00315GB 

122 

FORMAT C 1GF5.3) 

38. 

00315GB 


READ C 5, 124) CBET2SSC I), 1 = 1, NS 1) 

39. 

0031GGB 

124 

FORMAT C 1GF5.2) 

40. 

0031GGB 


READC5, 127) FNF 

41. 

003172B 

127 

FORMAT CFO. 2) 


RHC I ) ROTOR INLET RADIUS AT WHICH HUB PERFORMANCE CALCULATION 

IS CARRIED OUT. 

ST( I ) STATOR INLET RADIUS AT WHICH TIP PERFORMANCE CALCULATION 

IS CARRIED OUT. 

SMC I) STATOR INLET RADIUS AT WHICH MEAN LINE PERFORMANCE 

CALCULATION IS CARRIED OUT. 

SHC I ) STATOR INLET RADIUS AT WHICH HUB PERFORMANCE CALCULATION 

IS CARRIED OUT. 

BLOCK C I ) BLOCKAGE FACTOR FOR I-TH STAGE ROTOR 

BLOCKSCI) BLOCKAGE FACTOR FOR I-TH STAGE STATOR 

IDESIN INDEX FOR OUTPUT 

IDESIN=l: BOTH STAGE AND OUERALL PERFORMANCE MAY BE 
PRINTED OUT 

IDESIN=2: ONLY OUERALL PERFORMANCE MAY BE PRINTED OUT 
JCENT INDEX FOR CENTRIFUGAL CALCULATION OF LARGE DROPLET 

JCENT=0: LARGE DROPLETS IN ROTOR FREE STREAM ARE NOT 
CENTRIFUGED. 

JCENT=l: LARGE DROPLETS IN ROTOR FREE STREAM ARE 
CENTRIFUGED. 

BET1MRCI) BLADE METAL ANGLE AT ROTOR INLET FOR I-TH STAGE 
EET2MRC I ) BLADE METAL ANGLE AT ROTOR OUTLET FOR I-TH STAGE 

EET1MSC I ) BLADE METAL ANGLE AT STATOR INLET FOR I-TH STAGE 

BET2MSC I ) BLADE METAL ANGLE AT STATOR OUTLET FOR I-TH STAGE 

DSMASS DESIGN MASS FLOW RATE FOR FAN PART CSTREAMTUBE) 

BYPASS BYPASS RATIO 

PR12DCI) DESIGN TOTAL PRESSURE RATIO FOR I-TH STAGE ROTOR 

PR13D(I) DESIGN TOTAL PRESSURE RATIO FOR I-TH STAGE 

ETARDCI) DESIGN ADIABATIC EFFICIENCY FOR I-TH STAGE ROTOR 

SAREACI) FLOW AREA AT I-TH STAGE ROTOR INLET CSTREAMTUBE) 

SAREASCI) FLOW AREA AT I-TH STAGE STATOR INLET CSTREAMTUBE) 
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42. 

003172B 


READ(5» 128) XDIN, ICENT.XDDIN, IICENT, ICENTU 

43. 

003202B 

128 

FORMAT (F5. 3*11* F5. 3, 11,11) 

44. 

003202B 


READC5, 129) TOG.TOU.PO 

45. 

003210B 

129 

FORMAT C3F7.2) 

4G. 

003210B 


READC5, 130) DIN* DDIM 

47. 

003215B 

130 

FORMAT C2FG. 1 ) 

48. 

003215B 


READ(5> 132) FND*T01D*P01D. FNDLPC* FNDHPC 

49. 

003225B 

132 

F0RMATCF7. 1* 2F7.2* 2F7.1) 

50. 

003225B 


READ(5* 133) XCH4. RHUMID 

51. 

003232B 

133 

FORMAT (F5.3*F10.5) 

52. 

003232B 


READC5* 134) FMWA, FMUU, FMWC 

53. 

003240B 

134 

FORMAT C3F7.3) 

54. 

003240B 


READC5* 135) PREB.DLIMIT 

55. 

003245B 

135 

FORMAT ( F5 . 1 * F7 . 1 ) 

5G. 

003245B 


READC5, 141 ) (GAPRC I ) * 1=1* NS) 

57. 

003255B 

141 

FORMAT (11F7.5) 

58. 

003255B 


READC5. 142) (GAPS(I), 1=1, NS) 

59. 

0032G5B 

142 

FORMAT ( 1 1F7. 5) 

GO. 

0032G5B 


READC5, 14G) (RRTIPCI ) , 1=1, NS) 

Gl. 

003275B 

14G 

FORMAT ( 13FG. 3) 

G2. 

003275B 


READC5, 147) (SRTIPC I ) , 1=1, NS1 ) 

G3. 

003305B 

147 

FORMAT (13FG. 3) 

G4. 

003305B 


READC5, 1491 ) IRAD 

G5. 

00331 IB 

1491 

FORMAT (ID 

GG. 

00331 IB 


READC5, 1492) (RTCI), 1=1, NS) 

G7. 

003321B 

1492 

FORMAT C 1GF5.3) 

G8. 

003321B 


READC5, 1493) (RM( I ), 1=1, NS) 

G9. 

003331B 

1493 

FORMAT (1GF5. 3) 

70. 

003331B 


READC5, 1494) (RHC I ) , 1=1 , NS ) 

71. 

003341B 

1494 

FORMAT ( 1GF5. 3) 

72. 

003341B 


READC5, 1495) (STCI), 1=1, NS) 

73. 

003351B 

1495 

F0RMATC1GF5.3) 

74. 

003351B 


READC5, 149G) (SMC I ), 1=1, NS) 

75. 

0033G1B 

149G 

FORMAT (1GF5. 3) 

7G. 

0033G1B 


READC5, 1497) (SH( I ) , 1=1 , NS) 

77. 

003371B 

1497 

F0RMATC1GF5.3) 

78. 

003371B 


READC5, 1498) (BLOCKC I ) , 1=1 , NS) 

79. 

003401B 

1498 

FORMAT (1GF5. 3) 

80. 

003401B 


READC5, 1499) ( BLOCKS (I), 1=1, NS 1) 

81. 

00341 IB 

1439 

FORMAT (1GF5. 3) 

82. 

00341 IB 


READC5, 1500 ) IDESIN.JCENT 

83. 

00341GB 

1500 

F0RMATC2I1 ) 

84. 

00341GB 


READC5, 1502) (BETIMR(I), 1=1, NS) 

85. 

00342GB 

1502 

FORMAT ( 1GF5.2) 

8G. 

00342GB 


READC5, 1503) (BET2MRCI ) , 1=1 , NS) 

87. 

00343GB 

1503 

FORMAT (1GF5. 2) 

88. 

00343GB 


READC5, 1504) (BETIMS(I), 1 = 1, NS1) 

89. 

00344GB 

1504 

FORMAT (1GF5. 2) 

90. 

00344GB 


READC5, 1505) ( BET2MS ( I ) , 1= 1 , NS 1 ) 

91. 

00345GB 

1505 

F0RMATC1GF5.2) 

92. 

00345GB 


READC5, 150G) D3MASS, BYPASS 

93. 

0034G3B 

150G 

FORMAT (2F10.G) 

94. 

0034G3B 


READC5, 1507 ) (PR12DC I ) , 1=1 , NS ) 

95. 

003473B 

1507 

FORMAT ( 1GF5.3) 

9G. 

003473B 


READC5, 1508) (PR13DC I ) , 1=1 , NS) 

97. 

003503B 

1508 

FORMAT ( IGF 5. 3) 

98. 

003503B 


READC5, 1509) (ETARDC I ) , 1=1 , NS) 

99. 

003513B 

1509 

FORMAT (1GF5. 3) 

100. 

003513B 


READC5, 151 1 ) (SAREAC I ) , 1=1 , NS) 

101. 

003523B 

1511 

FORM AT (8F1 0.7) 
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109. 

003583B 


READC5, 1518) (SAREASC I ) , 1 = 1, NSi ) 

103. 

003533B 

1512 FORMAT (8F10.7) 

c ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
C OTHER IMPUT DATA 

104. 

003533B 


IFCRHUMID.LT. 1.0E-5) RHUMID=1 . 0E-5 

105. 

003536B 


IPRIMT=1 

106. 

003536B 


RU=1545. 3 

107. 

003537B 


RH0kl=62.54 

108. 

003541B 


CPW=1.000 

109. 

003542B 


WKDONE=l . 0 

110. 

003543B 


AAAIGU=SAREAS(NS1 ) 

111. 

003545B 


AK 1 = 1 . 0 

118. 

003546B 


AK2=1 . 0 

113. 

003547B 


AK3=1 . 0 

114. 

003550B 


DO 153 1=1, NS 

115. 

003552B 


FMR1(I)=0.6 

116. 

003558B 


FMA8C I )=0 .6 

117. 

003553B 

153 

CONTINUE 

118. 

003555B 


FNFN=FNF*100.0 

119. 

003556B 


RA=RU/FMWA 

180. 

003560B 


RU=RU/FMWU 

181. 

003561B 


RCH=RU/FMUC 

188. 

003563B 


DELU=0. 0 

183. 

003564B 


DELUU2=10 . 0 

184. 

003565B 


DELUL2=10.0 

185. 

003565B 


GC=32 . 0 

186. 

003567B 


AJ=778. 1G 

187. 

003570B 


PAI=3. 1415926 

188. 

003572B 


DO 150 1=1, NS 

189. 

003574B 


AAREA(I)=PAI*((RRTIP(I)/12.0)**2=(RRHUB(I)/18.0)**2)*BLOCK(I) 

130. 

003601B 


AAREAS ( I ) =PAI* ( SRTIP ( I ) **2-SRHUB(I ) **2 )>144. 0*BL0CKS( I ) 

131. 

003606B 


DELZC I )=(RC( I )+SC( I ) )/12. 0 

138. 

00361 IB 

150 

CONTINUE 

133. 

003613B 


NS1=NS+1 

134. 

003614B 


AAREAS ( NS 1 )=PAI*( SRTIP (NSI )**2-5RHUB(NSl )**8)/144. 0*BLOCK5(NS1) 

135. 

003621B 


AAAR1T=AAREA( 1 ) 

136. 

003623B 


DO 152 1=1. NS 

137. 

003625B 


ARE A ( I ) =SAREA ( I ) 

138. 

003685B 


AREASC I )=SAREAS( I ) 

139. 

003627B 

158 

CONTINUE 

140. 

003631B 


AREASCNS1 )=SAREAS(NS1 ) 

141. 

003632B 


FN=FND*FNF*SORT ( TOG/518 . 7 ) 

148. 

003641B 


P01FAN=P0 

143. 

003642B 


T01FAN=T0G 

144. 

003643B 


OT01G=T0G 

145. 

003644B 


OT01D=T0W 

146. 

003645B 


OP01=P0 

147. 

003647B 


CRPM=FNF*FND 

148. 

003650B 


FNDFAN=FND 

149. 

003651B 


DO 151 1=1, NS 

150. 

003653B 


IF ( I . GT . NSF . AND . I . LE . ( NSF +NSLPC ) ) FND=FNDLPC 

151. 

003662B 


IF ( I . GT . ( NSF +NSLPC ) ) FND=FNDHPC 

158. 

0036S6B 


UTIPC I )=RT( I )/12. 0*2. 0*PAI*FND/G0. 0 

153. 

003671B 


UTIPGC I )=RRTIP( I )/12. 0*2. O*PAI*FND/60. 0 

154. 

003S75B 


UTIP2C I )=ST ( I )/18. 0*8. 0*PAI*FND/60. 0 

155. 

003701B 


UTIPDC I )=RT( I )/12. 0*2. 0*PAI*FND/G0. 0 

156. 

003705B 


UOUC I)=(UTIP(I )/UTIPD( I ) )**2 

157. 

003707B 


UMEANC I )=RM( I )/12. 0*2. 0*PAI*FND/G0. 0 

158. 

003713B 


UMEAN2C I )=SM( I )/18. 0*2. 0*PAI*FND/G0. 0 

159. 

003717B 


UHUBC I )=RH( I )/12. 0*2. 0*PAI*FND/G0.0 
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160. 

003723B 

1G1. 

003727B 

1G2. 

003734B 

1G3. 

003740B 

1G4. 

003743B 

1G5. 

003750B 

1GG. 

00375GB 

1G7. 

0037G2B 

1G8. 

0037G5B 

1G9. 

003770B 

170. 

003775B 

171. 

004003B 

172. 

00400GB 

173. 

00401 IB 

174. 

004014B 

175. 

004017B 

17G. 

004022B 

177. 

004025B 

178. 

004032B 

173. 

004040B 

180. 

004045B 

181. 

004053B 

182. 

004055B 

183. 

00405GB 

184. 

0040G2B 

185. 

0040G2B 

18G. 

0040GGB 

187. 

0040GGB 

188. 

004073B 

189. 

004073B 

190. 

004100B 

191. 

004100B 

192. 

004105B 

193. 

004105B 

194. 

004112B 

195. 

004112B 

19G. 

004121B 

197. 

004121B 

198. 

004130B 

199. 

004130B 

200. 

004137B 

201. 

004137B 

202. 

00414GB 

203. 

00414GB 

204. 

004155B 

205. 

004155B 

20G. 

0041G2B 

207. 

0041G2B 

208. 

0041G7B 

209. 

0041G7B 

210. 

004172B 


UHUB2C I )=SHC I )/12. 0*2. 0*PAI*FND/60. 0 
IF ( IRAD.EQ. 1 ) U( I )=UTIPC I ) 

IF C IRAD.EQ. 2) U( I )=UMEANC I ) 

IF ( IRAD.EQ.3) UCI)=UHUBCI) 

IF ( IRAD . EQ . 4 . AND . I . LE . NSF ) UC I )=UMEANC I ) 

IF( I RAD. EQ. 4. AND. I . GT.NSF) U(I)=UTIP(I) 

IF ( IRAD. EQ. 1 ) UU2C I )=UTIP2( I ) 

IF ( IRAD.EQ. 2) UU2C I )=UMEAN2C I ) 

IF( IRAD.EQ.3) 1)1)2 ( I )=UHUB2( I ) 

IF( IRAD. EQ. 4. AND. I . LE.NSF) UU2( I )=UMEAN2C I ) 

IF ( I RAD . EQ . 4 . AND . I . GT . NSF ) UU2C I )=UTIP2( I ) 

IF ( IRAD.EQ. 1 ) RADI 1(1 )=RT ( I ) 

IF ( IRAD. EQ. 1 ) RADI2C I )=ST ( I ) 

IFCIRAD.EQ.2) RADI 1 ( I )=RM( I ) 

IF C IRAD.EQ. 2) RADI2C I )=SM( I ) 

IF C IRAD.EQ.3) RADI 1 C I )=RHC I ) 

IF C IRAD.EQ.3) RADI2C I )=SH( I ) 

IFC IRAD.EQ. 4. AND. I. LE.NSF) RADI 1 C I )=RMC I ) 

IF ( IRAD.EQ. 4. AMD. I .LE.NSF) RADI2C I )=SMC I ) 

IF( IRAD.EQ. 4. AND. I. GT. NSF) RADII ( I )=RT( I ) 

IF ( IRAD.EQ. 4. AND. I .GT.NSF) RADI2C I )=STC I ) 

151 CONTINUE 

FND=FNDFAN 

C PRINT OUT OF INPUT DATA 
WRITE C B* 1G00) 

1600 FORMATC 1H1 » 5X, /***************************** INPUT DATA ****»«-»*** 
WRITECG, 1G10) NS 

1E10 FORMAT ( 1H0* IX, ZNSCNUMBER OF STAGE)=Z» 12) 

IF C IRAD.EQ. 1 ) WRITECG, 1G04) 

1G04 FORMATC 1H , IX, /PERFORMANCE AT TIP?*) 

IFCIRAD.EQ.2) WRITECG, 1G05) 

1G05 FORMAT C 1H , IX, /PERFORMANCE AT MEAN/) 

IFCIRAD.EQ.3) WRITECG, 1G0G) 

1B0G FORMAT C 1H , IX, /PERFORMANCE AT HUB/) 

IFCIRAD.EQ.4) WRITECG, 1G13) 

1G13 FORMAT C 1H , IX, /PERFORMANCE AT MEAN FOR FAN AND AT TIP FOR LPC, 
-HPCZ) 

IFCICENT.EQ.3.AND. IICENT.EQ.3) WRITECG, 1G07) 

1G07 FORMAT C 1H0, IX, /NO CENTRIFUGAL ACTION/) 

IFCICENT.EQ.6.AND.IICENT.EQ.G) WRITECG, 1G15) 

1615 FORMAT C 1H0, IX, /NO MASS TRANSFER/) 

IFC I CENT. EQ. 7 . AND. I ICENT.EQ. 7) WRITECG, 1G14) 

1G14 FORMAT C 1H0, IX, /NO MASS TRANSFER AND NO CENTRIFUGAL ACTION/) 

IFC ICENT.EQ. 4. AND. IICENT. EQ. 4) WRITECG, 1G08) 

1G08 FORMAT C 1H0, IX, /NO CENTRIFUGAL ACTION/) 

IF C ICENT.EQ. 5. AND. I ICENT.EQ. 5) WRITECG, 1G09) 

1G09 FORMAT C1H0, IX, /NO HEAT AND MASS .TRANCEFER; AND NO CENTRIFUGAL 
$ ACTION/) 

IF C JCENT. EQ. 1 ) WRITECG, 1E12) 

1G12 FQRMATC1H0, IX, /LARGE DROPLETS IN ROTOR FREE STREAM ARE CENTRIFUG 
$EDZ) 

IFC JCENT. NE.l) WRITECG, 1G1 1 ) 

1G1 1 FORMATC1HO, IX, /LARGE DROPLETS IN ROTOR FREE STREAM ARE NOT CENTRIF 
$UGEDZ) 

WRITECG, 1G20) 

1620 FORMATC1HO, 14X,/l/,5X,/2/,5X,/3/,5X,/4/,5X,/5/,5X,/G/, 

$ 5X, /7Z, 5X, /8/, 5X, /9Z, 5X, /10Z, 4X, /1 1Z, 4X, Z12/, 4X, Z13Z, 

$ 4X,Z14/,4X,/15Z,4X,/16/) 
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211. 

004172B 

212. 

004202B 

213. 

004202B 

214. 

004212B 

215. 

004212B 

216. 

004222B 

217. 

004222B 

218. 

004232B 

219. 

004232B 

220. 

004242B 

221. 

004242B 

222. 

004252B 

223. 

004252B 

224. 

004262B 

225. 

004262B 

226. 

004272B 

227. 

004272B 

228. 

004302B 

229. 

004302B 

230. 

004312B 

231. 

004312B 

232. 

004322B 

233. 

004322B 

234. 

004332B 

235. 

004332B 

236. 

004342B 

237. 

004342B 

238. 

004352B 

239. 

004352B 

240. 

0043G2B 

241. 

0043G2B 

242. 

004372B 

243. 

004372B 

244. 

004402B 

245. 

004402B 

246. 

004412B 

247. 

004412B 

248. 

004422B 

249. 

004422B 

250. 

004432B 

251. 

004432B 

252. 

004448B 

253. 

004442B 

254. 

004452B 

255. 

004452B 

256. 

004462B 

257. 

004462B 

258. 

004472B 

259. 

004472B 

260. 

004502B 

261. 

004502B 

262. 

004512B 

263. 

004512B 

264. 

004522B 

265. 

004522B 

266. 

004532B 

267. 

004532B 

268. 

004542B 

269. 

004542B 

270. 

004552B 


WRITEC6, 1G30) (RRHUB(I), 1=1, NS) 

1630 FORMAT ( 1H , IX, ^RRHUBC I )?, 3X, 20CF5. 3, IX) ) 
WRITECG, 1640) (RCC I ) , 1=1, MSI 
1640 FORMAT ( 1H , IX, ^RC(I)*, GX, 20 (F5. 3, IX) ) 
WRITECG, 1650) CRBLADEC I ) , 1=1 , NS) 

1650 FORMAT ( 1H , 1X,^RBLADE(I)^,2X,20(F5.2, IX)) 
WRITEC6, 1660) CSTAGERC I ) , 1=1, NS) 

1660 FORMAT ( 1H , IX, CSTAGERC I )P, EX, 20 (F5. 2, IX) ) 
WRITECG, 1661) (STAGES(I), 1=1, MS) 

1661 FORMAT ( 1H , IX, ^STAGES ( I )^, 2X» 20CF5.2»1X)) 
WRITECG, 1670) (SRHUB(I), 1=1, NS1) 

1670 FORMAT ( 1H , IX, *SRHUBC I )P, 3X, 20 (F5.3, IX) ) 
WRITEC6, 1680 ) (SCCI ) , 1=1, MS) 

1680 FORMAT ( 1H , IX, ^SCC I );*, GX, 20CF5. 3, IX) ) 
WRITECG, 1690) (SBLADE(I), 1=1, MS) 

1690 FORMAT ( 1H , IX, ^SBLADEC I )Z, 2X, 20CF5. 2, IX) ) 
URITEC6, 1700) CSIGUMRC I ) , 1=1 , NS) 

1700 FORMAT ( 1H , IX, CSIGUMRC I)M,2X» 20CF5.3, IX) ) 
WRITECG, 1750) CSIGUMSCI), 1=1, NS) 

1750 FORMAT ( 1H , IX, ^SIGUMSC I )?, 2X, 20CF5.3, IX) ) 
WRITECG, 1770) CBET2SSC I), 1=1, NS1) 

1770 FORMAT C 1H , IX, ^BET2SSC I )P, 2X, 20CF5.2, IX) ) 
WRITEC6, 1795) CGAPRC I ) , 1=1 , NS) 

1795 FORMAT C 1H , IX, CGAPRC I )^, 4X, 20CF5.3, IX) ) 
WRITEC6, 1796) CGAPSC I ) , 1=1, NS) 

1796 FORMAT C 1H , IX, CGAPSC I )*, 4X, 20CF5. 3, IX) ) 
WRITECG, 1798) CRRTIPC I ) , 1=1 , NS) 

1798 FORMAT C 1H , IX, FRRTIPC I )*, 3X, 20CF5. 2, IX) ) 
WRITECG, 1799) CSRTIPC I ) , 1=1 , NS1 ) 

1799 FORMAT C 1H , IX, CSRTIPC I )*, 3X, 20CF5.2, IX) ) 
WRITECG, 1801) CRT Cl), 1=1, NS) 

1801 FORMAT C 1H , IX, ^RTC I )*, GX, 20CF5.2, IX) ) 
WRITECG, 1802) CRMC I ) , 1=1, NS) 

1802 FORMAT C 1H , IX, *RMC I )*, GX, 20CF5. 2, IX) ) 
WRITECG, 1803) CRHC I ) , 1=1, NS) 

1803 FORMAT C 1H , IX, FRHC I )*, GX, 20CF5.2, IX) ) 
WRITEC6, 1804) CSTC I ) , 1=1, NS) 

1804 FORMAT C 1H , IX, ^STC I )A 6X, 20CF5. 2, IX) ) 
WRITECG, 1805) CSMC I ) , 1=1, NS) 

1805 FORMAT C 1H , 1X,^SMCI)*,6X,2GCF5.2, IX)) 
WRITECG, 1806) CSHCI)»I=1»NS) 

1806 FORMAT C 1H , IX, ^SHC I )*, GX, 20 CF5. 2, IX) ) 
WRITECG, 1807) CBLOCKC I ) , 1=1 , NS) 

1807 FORMAT C 1H , IX, CBLOCKC I )*, 3X, 20 (F5. 3, IX) ) 
WRITECG, 1808) C BLOCKS Cl), 1 = 1, NS 1) 

1808 FORMAT C 1H , IX, ^BLOCKS C I )^» 2X, 20 CF5. 3, IX) ) 
WRITEC6, 181 1 ) CBET1MRCI), 1=1, NS) 

1811 FORMAT C 1H , IX, ^BETIMRC I )*, 2Xi 20CF5. 2, IX) ) 
WRITECG, 1812) CBET2MRC I ) , 1=1 , NS) 

1812 FORMAT C 1H , IX, PBET2MRC I )^» 2X, 20CF5. 2, IX) ) 
WRITECG, 1813) C BET1MSC I ) , 1=1, NS1 ) 

1813 FORMAT C 1H , IX, ^BETIMSC I )^, 2X, 20 (F5. 2, IX) ) 
WRITECG, 1814) CBET2MSC I ) , 1=1, NS1 ) 

1814 FORMAT C 1H , IX, *BET2MSC I )^, 2X, 20CF5. 2, IX) ) 
WRITEC6, 1815) CPR12DC I ) , 1=1 , NS) 

1815 FORMAT C 1H , IX, *PR12DC I )*, 3X.20CF5. 3, IX) ) 
WRITECG, 1816) C PR 1 3D Cl), 1=1, NS) 

1816 FORMAT C 1H , IX, ^PR13DC I )*, 3X, 20CF5. 3, IX) ) 
WRITECG, 1817) CETARDC I ) , 1=1 , NS) 

1817 FORMAT C 1H , IX, CETARDC I )*, 3X, 20CF5. 3, IX) ) 
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271. 

272. 

273. 

274. 

275. 
27G. 


277. 

278. 


279. 

280. 

281. 

282. 

283. 

284. 

285. 
288. 

287. 

288. 

289. 

290. 

291. 

292. 

293. 

294. 

295. 
298. 

297. 

298. 

299. 

300. 

301. 

302. 

303. 

304. 

305. 
308. 

307. 

308. 

309. 

310. 

311. 

312. 

313. 

314. 

315. 
318. 
317. 


004552B WRITEC6, 1818) 

004555B 1818 FORMATC 1H1 * 5X, /***************************** INPUT DATA ********** 

$**********«»*-**»«**-) 

004555B WRITECG, 1800 ) FNF 

0045G1B 1800 FORMAT ( 1H0* IX, ZFNFCFRACTION OF DESIGN CORRECTED SPEED)=Z, F5.3) 

0045S1B WRITEC6, 1810) XDIN, XDDIN. RHUMIDi XCH4 

004570B 1810 FORMAT ( 1H0* IX* /XDINC INITIAL WATER CONTENT OF SMALL DROPLET )=/, F5. 3 

$* /* 2X* ZXDDINC INITIAL WATER CONTENT OF LARGE DROPLET )=/« F5. 3, /* 

$2X» /RHUMIDC INITIAL RELATIUE HUMIDITY)=Z, F8.2, IX, /PER CENT/,/, 
$2X,/XCH4( INITIAL METHANE CONTENTS*, F5. 3) 

004570B WRITECG, 1820) TOG, TOW, PO 

004578B 1820 FORMAT ( 1H0, IX, ZTOGCCOMPRESSOR INLET TOTAL TEMPRATURE OF GAS)=Z, 

$F7 . 2, /» 2X, ZTOWCCOMPRESSOR INLET TEMPERATURE OF DR0PLRET)=/,F7.2,/, 
$2X, /POC COMPRESSOR INLET TOTAL PRESSURES/, F7.2) 

004576B WRITE(G, 1830) DIN, DDIN 

004S03B 1830 FORMAT (1H0*1X*/DIN(INITIIL DROPLET DIAMETER OF SMALL DROPLET)=/» 

$FG. 1 , /, 2X, /DDIN ( INITIAL DROPLET DIAMETER OF LARGE DROPLET)=Z» FG. 1 ) 
004S03B WRITECG, 1850) FND 

004S07B 1850 FORMAT ( 1HO, IX, /FNDCDESIGN ROTATIONAL SPEED)=Z, F7. 1 ) 

004G07B WRITECG, 1851) DSMASS 

004G13B 1851 FORMATC 1H0, IX, /DSMASS (DESIGN MASS FLOW RATE)=Z» F10. 4) 

004G13B WRITECG, 1852)BYPASS 

004G17B 1852 FORMATC 1H0, IX, /BYPASS RATIO = Z,F10.4) 

004G17B WRITECG, I860) TOG 

004G23B 1860 FORMATC 1H0, IX, /COMPRESSOR INLET TOTAL TEMPERATURE (GAS PHASE)/ , 

$F7.2,1X,/R/) 

004G23B WRITECG, 1870) PO 

004G27B 1870 FORMATC 1HO, IX, /COMPRESSOR INLET TOTAL PRESSURES, F7. 2, IX, ZLB/FT**2 

$/) 

004G27B WRITECG, 1880) PREB 

004G33B 1880 FORMATC 1HO, IX, ZPREBCPERCENT OF WATER THAT REBOUND AFTER IMPINGEMEN 

$T)=Z, F5. 1, IX, /PERCENT/) 

004633B WRITECG, 1900) FN 

004G37B 1900 FORMATC 1H0, IX, /ROTOR SPEED=/, F7. 1 , IX, ZRPMZ) 

004G37B WRITECG, 1910) CRPM, FNFN 

004G44B 1910 FORMATC 1H0, IX, /CORRECTED ROTOR SPEED= Z,F7. 1, IX, ZRPMZ, Z(/,2X,F5.1, 

$/PER CENT OF DESIGN CORRECTED SPEED)/) 

004G44B TGC 1 )=T01D 

004G44B PC 1 )=P01D 

004G4GB CALL WICSPDCDSMASS, ISTAGE) 

C 

004G51B 
004G53B 
004665B 

004701B 
004713B 
004717B 
004725B 
004730B 
004733B 
004740B 
004745B 
004751B 
004753B 
004757B 
004764B 
004771B 
00477GB 
005003B 


DO 1533 1=1, NS 

IF (I.LE.NSF) FN=FNDFAN*FNF*SQRT(T0G/518.7) 

IF ( I . GT . NSF . AND . I . LE . ( NSF+NSLPC ) ) 

$ FN=FNDLFC*FNF*SQRT(T0G/518.7) 

IFCI.GT. (NSF+NSLPC) ) FN=FNDHPC*FNF*SQRT(T0G/513.7) 
IFCI.LE.NSF) FND=FNDFAN 

IF ( I . GT . NSF . AND . I . LE . ( NSF+NSLPC ) ) FND=FNDLPC 
IFCI.GT. (NSF+NSLPC)) FND=FNDHPC 
UTIPC I )=RT ( I )/12. 0*2. 0*PAI*FN/S0 . 0 
UTIPGC I )=RRTIP( I )/12. 0*2. 0*PAI*FN/60. 0 
UTIP2C I )=ST ( I )/12. 0*2. 0*PAI*FN/E0. 0 
UTIPDC I )=RT( I )/12. 0*2. 0*PAI*FND/S0. 0 
UOUC I )=(UTIP( I VUTIPDC I ) )**2 
UMEANC I )=RM( I )/12. 0*2. 0*PAI*FN/G0 . 0 
UMEAN2C I )=SM( I )/12. 0*2. 0*PAI*FN/60 . 0 
UHUBC I )=RH( I )/12. 0*2. 0*PAI*FN/G0. 0 
UHUB2C I )=SH( I )/12. 0*2. 0*PAI*FN/G0. 0 
IF ( IRAD.EQ. 1 ) U( I )=UTIP( I ) 

IF ( IRAD.EQ.2) U(I)=UMEAN(I) 
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318. 

005007B 


IFCIRAD.EQ.3) UCI)=UHUBCI) 

319. 

G05013B 


IF ( I RAD. EQ. 4. AND. I.LE.NSF) U( I )=UMEAN( I) 

320 . 

005021B 


IF ( I RAD. EQ. 4. AND. I.GT.NSF) U(I)=UTIP(I) 

321. 

005027B 


IFCIRAD.EQ.l) UU2C I )=UTIF2( I ) 

322. 

005033B 


IFCIRAD.EQ. 2) UU2C I )=UMEAN2C I ) 

323. 

005037B 


IFCIRAD.EQ.3) UU2C I )=UHUB2( I ) 

324. 

005043B 


I F C I RAD . EQ . 4 . AND . I . LE . NSF ) UU2C I ) =UME AN2 ( I ) 

325. 

005051B 


IFC IRAD. EQ.4. AND. I.GT.NSF) UU2C I )=UTIP2( I ) 

32S. 

005060B 


IFCIRAD.EQ.l) RADII C I )=RTC I ) 

327. 

005063B 


IFCIRAD.EQ. 1) RADI2CI )=ST Cl) 

328. 

0050G6B 

- 

IFCIRAD.EQ. 2) RADII C I )=RMC I ) 

329. 

005072B 


IFCIRAD.EQ. 2) RADI2C I )=SMC I ) 

330. 

00S07GB 


IFCIRAD.EQ.3) RADII C I )=RHC I ) 

331. 

005102B 


IFCIRAD.EQ.3) RADI2C I )=SHC I ) 

332. 

005106B 


IFCIRAD.EQ. 4. AND. I.LE.NSF) RADI1CI)=RMCI) 

333. 

005114B 


IFC IRAD. EQ.4. AND. I . LE.NSF ) RADI2C I )=SMC I ) 

334.- 

005123B 


IFCIRAD.EQ. 4. AND. I.GT.NSF) RADII C I )=RTC I ) 

335. 

005131B 


IFC IRAD. EQ.4. AND. I.GT.NSF) RADI2C I )=ST C I ) 

336. 

005140B 

1533 

CONTINUE 

337. 

005142B 


UTIPGCNS+1 )=UTIPGCNS) 



C MASS FLOWRATE 

338. 

005143B 


NNPHI = 1 

339. 

005144B 

901 

READC5* 200 ) FAI 

340. 

005151B 

200 

FORMAT CF7.5) 

341. 

005151B 


ISTAGE=0 

342. 

005151B 


N=1 

343. 

005152B . 


IFCFAI.GT.1.0) GO TO 998 

344. 

005155B 


IFC IPRINT. EQ. 2) WRITEC6, 197) FAI 

345. 

0051G3B 

197 

FORM AT C 1 H 1 . 2X , *F A I , F7 . 5 ) 

346. 

0051G3B 


FAIO=FAI 

347. 

0051G3B 


UZ=UTIPGC 1 )*FAI 

348. 

005165B 


TGC 1 )=OT01G 

349. 

00516GB 


UZERO=0 . 0 

350. 

0051G7B 


UUZERO=0 . 0 

351. 

005170B 


UUZERO=0 . 0 

352. 

005171B 


URZERO=RRTIPC 1 ) 

353. 

005172B 


RZERO=RRHUBC 1 ) 

354. 

005173B 


RRZERO=RRHUBC 1 ) 

355. 

005174B 


ITIP=0 

356. 

005175B 


IITIP=0 

357. 

00517GB 


DAUECN)=0 . 0 

358. 

005177B 


DDAUECN)=0 . 0 

359. 

005200B 


TWC 1 )=OT01D 

360. 

005201B 


TWWC 1 ) =010 ID 

361. 

005202B 


IFCXDIN.GT.0.0) DAUECN)=DIN 

362. 

005207B 


IFCXDDIN.GT.0.0) DDAUECN)=DDIN 

363. 

005213B 


IFCXDIN.GT.0.0) TUC1)=OT01D 

364. 

005217B 


IFCXDDIN.GT.0.0) TWWC1)=OT01D 

365. 

005223B 


PC1)=OP01 

366. 

005223B 


TBC 1 ) = WICBPTCTGC 1 ) » PCD) 

367. 

00522GB 


WSC1) = WICSHCTGC 1 ) , PCI) )*RHUMID/100.0 

368 . 

005231B 


PW=WSC 1)“PC1)/CWSC1)+0.G219) 

369. 

005235B 


TDEWC 1 )=HICBPT CTGC 1 ) » PW) 

370. 

005240B 


XWC 1 )=XDIN 

371. 

005241B 


XWWC 1 )=XDDIN 

372. 

005242B 


XWTC1)=XWC1)+XWWC1) 

373. 

005244B 


XWTO=XWT C 1 ) 

374. 

005245B 


XUC 1 )=WSC 1 )/C 1 . 0+WSC 1 ) )*C 1 . 0-XWT C 1 )-XCH4) 

375. 

005252B 


XA=1 . 0-XWT C 1 ) -XUC 1 ) -XCH4 

376. 

00525GB 


XG=XA+XUC 1 )+XCH4 
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377. 

005257B 

XA1N=XA 

378. 

005260B 

XCH4IN=XCH4 

379. 

005262B 

ISTAGE=1 

380. 

005263B 

CALL WICPRPCXA, XU( 1 ) , XCH4* TG( 1 ) , RMIX, CPMIX. GAMMA, G1 ,G2, G3) 

381. 

005266B 

GAMMAI=GAMMA . 

382. 

00526GB 

RHOG(l)=P(l)/RMIX/TG(l) 

383. 

005271B 

RHOA( 1 )=P( 1 )/RA/TG( 1 ) 

384. 

005273B 

AMASSM= _ 1.0 

C AAAIGU=STREAM°TUBE AREA AT IGU OUTLET 

385. 

005274B 

AAA2=AAAIGU 

386. 

00527GB 

AAA3=AAAIGU 

387. 

005277B 

CALL WICMACC ISTAGE, AMASSM, TG( 1 ) , P( 1 ) , M, UZ, C, XWTC 1 ) , BET2SS(NS1 ) , 
$RMIX* CPMIX, AAA3) 

388. 

005303B 

RHOG ( 1 ) = ( 1 . 0 +G2*M**2 ) **G3»RH0G ( 1 ) 

389. 

00531 IB 

RHOM (1)=1.0/(C1. 0-XUT ( 1 ) ) /RHOG ( 1 ) +XWT ( 1 1 /RHOW ) 

390. 

00531GB 

MMASS = RH0M(1)*FAI*UTIPG(1)*AAA3 

391. 

005321B 

I1MASSO=MMASS 

392. 

005322B 

UMASSO=MMASSO*XDIN 

393. 

005323B 

UUMASO=MMASSO*XDDIN 

394. 

005325B 

IFCIPRINT.EQ.2) URITE(G, 5558) MMASSO, XDIN, UMASSQ, MMASS 

395. 

005337B 

5558 FORMAT (1HO»2X,4(F10.5,2X)) 

396. 

005337B 

DAMY=OT01G/518. 7 

397. 

005340B 

DAMY2=OP01/( 14. 7*144.0) 

398. 

005342B 

CMASS=MMASS*SGRT(BAMY)/DAMY2 

399. 

00534GB 

AMASS = XA * MMASS 

400. 

005350B 

UIMA5S ( 1 ) =XU Cl) *MMASS 

401. 

005351B 

UIWMASS ( 1 ) =XUIM ( 1 ) *MMASS 

402. 

005353B 

WTMASS (1 ) =XWT C 1 ) *MMASS 

403. 

005354B 

UMASS ( 1 ) =XU ( 1 ) *MMASS 

404. 

00535GB 

CHMASS=XCH4*MMASS 

405. 

005357B 

GMASS ( 1 ) =MMASS-UTMASS ( 1 ) 

406. 

005361B 

CMASS2=GMASS ( 1 ) *SQRT ( DAMY ) /DAMY2 

407. 

005365B 

AMO=AMASS 

408. 

005367B 

UMO=UMASS( 1 ) 

409. 

005370B 

CMO=CHMASS 

410. 

005372B 

GMO=GMASS( 1 ) 

411. 

005373B 

WMO=WMASS( 1 ) 

412. 

005374B 

UUMO=WUMASS( 1 ) 

413. 

005375B 

UTMQ=WTMASS( 1 ) 

414. 

005377B 

TLMO=GMO+WTMO 

415. 

005401B 

TUMAS=WMASS0*AAAR1T/AAAIGU 

416. 

005403B 

TWWMAS=WUMASO*AAAR 1 T/AAAIGU 

417. 

005405B 

WMASTL=TWMAS+TWWMAS 

418. 

005407B 

UMASTL=UMO*AAAR 1T/AAAIGU+WMASTL 

419. 

00541 IB 

UM ASTT =UMQ* AAAR 1 T/A AA I GU 
C IMITIAL UALUES 

420. 

005413B 

TG(3)=TG( 1 ) 

421. 

005414B 

TW(3)=TW( 1 ) 

422. 

005415B 

TWW(3)=TWW( 1 ) 

423. 

005417B 

P(3)=P(1) 

424. 

005420B 

TB(3)=TB( 1 ) 

425. 

005422B 

WS(3)=WS( 1 ) 

426. 

005423B 

TDEU(3)=TDEW(1) 

427. 

005425B 

XU(3)=XU( 1 ) 

428. 

0054260 

XG=XA+XU ( 3 ) +XCH4 

429. 

005431B 

XW(3)=XW( 1 ) 

430. 

005432B 

XWW(3)=XWW( 1 ) 

431. 

005434B 

UMASS(3)=UMASS( 1 ) 

432. 

005435B 

UMASS ( 3 ) =WMASS ( 1 ) 

433. 

00543GB 

UWMASS ( 3 ) =UUMASS ( 1 ) 
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434. 

435. 
43S. 

437. 

438. 

433. 

440. 

441. 

442. 

443. 

444. 

445. 
44G. 

447. 

448. 
443. 

450. 

451. 

005437B 

005441B 

005442B 

005443B 

005444B 

005445B 

005447B 

005447B 

005452B 

005453B 

005454B 

005455B 

005457B 

0054G5B 

00546GB 

005472B 

005472B 

005475B 

WCENT=WMASSO 
WWCENT =WWMASO 
UCENT=0 . 0 
DMDTA1=0 . 0 
DMDTA2=0 . 0 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
C IGU IMPINGEMENT 

CALL UICIS5(7> RADII ( 1 ) » XW(1) . XG , RHOG ( 1 ) » 0 . 0 . UZ> WW1 « WW2> WW ) 
AMIMPS=WW 

AMWAKS = AMIMPS * (1.0-PREB) 

AMREBS=AMIMPS*PREB 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
C IGU WAKE 
N=2 

D AUE ( 2 ) =DAUE ( 1 ) 

DDAUE C 2 ) =DDAUE ( 1 ) 

ALFA3=BET2SS ( NS1 ) * ( FAID/FA I )*»( 1 . 0/7. 0 ) 

DWAKEM=0. 0 

IFCXDIN.GT. 0. 0.OR.XDDIN.GT. 0 . 0 ) GO TO 628 
GO TO 629 

628 CALL WICUAK(RHOG( 1 ) » U2» DWAKE» DWAKEM) 

623 CONTINUE 



C IGU 

OUTLET 

452. 

005475B 


IF( IDESIN.EQ.2) GO TO 322 

453. 

005476B 


WMASSC3) = WMASS(l) 

454. 

005477B 


XW(31 = XW(1) 

455. 

005501B 


PR AT I 0=1.0 

456. 

005502B 


TRATI0=1 . 0 

457. 

005503B 


EFF=1 . 0 

458. 

005504B 


AMIMPR=0 . 0 

453. 

005504B 


AMREBR=0 . 0 

460. 

005505B 


AMWAKR=0 . 0 

461. 

00550GB 


DELTGW=0. 0 

462. 

005506B 


DELTDW=0 . 0 

463. 

005507B 


DELTGH=0. 0 

464. 

005507B 


DELTDH=0 . 0 

465. 

005510B 


DELT=0 . 0 

466. 

005510B 


DELP=0.0 

467. 

00551 IB 


DMDTAU=0 . 0 

468. 

00551 IB 


XU(3)=XU( 1 ) 

463. 

005512B 


XW(3)=XWC 1 ) 

470. 

005513B 


XWWC3)=XWW( 1 ) 

471. 

005515B 


WMASSC3) = WMASSCl) 

472. 

005516B 


UWMASS ( 3 ) =WWMASS Cl) 

473. 

005520B 


UMASS(3) = UMASS(l) 

474. 

005521B 


WS(3) = WS(1) 

475. 

005523B 


TDEWC3)=TDEW( 1 ) 

476. 

005524B 


RH0AC3) = RHOA(l) 

477. 

005526B 


RH0MC3) = RHOM(l) 

478. 

005527B 


RH0G(3) = RHOG(l) 

473. 

005531B 


TG(3) = TG( 1 ) 

480. 

005532B 


TWO) = TW Cl) 

481. 

005534B 


TWW(3)=TWW( 1 ) 

482. 

005535B 


P(3) = P(l) 

483. 

005537B 


TBO) = TB( 1 ) 

484. 

005540B 


XU(2)=0.0 

485. 

005541B 


XWC2) =0.0 

486. 

005542B 


XWW(2)=0. 0 

487. 

005543B 


WMASS(2) =0.0 
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488. 005543B LMMASSC2)=0.0 

489. 005544B UMASSC2) = 0.0 

490. 005544B US(2) = 0.0 

491.. 005545B RHOAC2)=0.0 

492. 005545B RH0M(2) =0.0 

493. 00554GB RH0GC2)= 0.0 

494. 00554GB TGC2)=0.0 

495. 005547B TLIC2) =0.0 

49G. 005547B TLILIC2)=0.0 

497. 005550B PC2) = 0.0 

498. 005550B TB(2) = 0.0 

499. 005551B TDEU(2)=0.0 

500. 005551B GAMMAO=GAMMA 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

C IGU OUTLET 

501. 005552B IF ( IFRIMT. EQ.2) LJRITECG, 300 ) ISTAGE 

502. 0055G2B 300 FORMAT C 1H0, 5X» ^ISTAGE=*» 1 1, 2X, *( IGU)*) 

503. 0055G2B IFCIPRIMT.EQ.2) LJRITECG, 301 ) PRATIO, TRATIO, EFF 

504. 005572B 301 FORMATC1HO,5X,3CF12.5, 5X) ) 

505. 005572B IFCIPRIMT.EQ.2) LJRITECG, 302) FAI, UZ, XA 

50G. 005G02B 302 FORMAT C1H0*5X»3CF12.5»5X)) 

507. 005G02B IF C IPRIMT.EQ.2) LIRITECG, 303) MM ASS » AMASS, AMIMPS, AMREBS, AMLIAKS, 

1AMIMPR, AMREBR, AMLJAKR 

508. 005G17B 303 FORMAT (1H0,5X,8(F12.5,2X)) 

509. 005617B IF ( IPRINT. EQ. 2) LIRITECG, 304) DELTGLJ, DELTDLI, DELTGH, DELTDH, DMDTAU, 

$DELT, DELP 

510. 005G33B 304 FORMAT C 1H0, 5X, 7CF12.5* 2X) ) 

511. 005G33B IF( IPRIMT.E0.2) LJRITECG, 305) XU(1), XUC2), XU (3) 

512. 005G43B 305 FORMATC 1H0, 5X, ^XU=*. 3CF20. 10, 5X) ) 

513. 005G43B IF ( IPRIMT.EQ.2) LIRITECG, 30G) XLI(l), XLJC2) , XL4C3) 

514. 005G53B 30G FORMAT ( 1H0. 5X> ^XU=^, 3CF20 . 10,5X) ) 

515. 005G53B IFC IPRIMT.EQ.2) LIRITECG, 307) LIMASS(l), LIMASSC2) , WMASSC3) 

51G. 005GG3B 307 FORMAT C 1H0, 5X, ^LJMASS=^, 3CF20, 10, 5X) ) 

517. 005GG3B ' IF C IPRIMT.EQ.2) LJRITECG, 308) UMASSC1) , UMASSC2) , UMAS5C3) 

518. 005G73B 308 FORMAT C 1H0, 5X, ^UMASS=/, 3CF20. 10, 5X) ) 

519. 005S73B IFC IPRIMT.EQ.2) LIRITECG, 303) LJ3C1) , LISC2) , LISC3) 

520. 005703B 309 FORMAT C 1H0, 5X, ^LIS=^, 3CF20 . 10, 5X) ) 

521. 005703B IFC IPRIMT.EQ.2) LJRITEC6, 310) RHOAC1) , RH0AC2) , RH0AC3) 

522. 005713B 310 FORMATC 1H0, 5X, ^RHOA=^, 3CF20. 10, 5X) ) 

523. 005713B IFC IPRIMT.EQ.2) LIRITECG, 311 ) RHOMC1), RHOMC2) , RH0MC3) 

524. 005723B 311 FORMATC 1H0, 5X, r*RHOM=A 3CF20. 10, 5X) ) 

525. 005723B IFC IPRIMT.EQ.2) LIRITECG, 312) RHOGC 1 ) , RH0GC2) , RH0GC3) 

52G. 005733B 312 FORMAT C 1H0, 5X* £RHOG=A 3CF20. 10, 5X) ) 

527. 005733B IFCIPRIMT.E0.2) LIRITECG, 313) TGC 1 ) , TGC2) , TGC3) 

528. 005743B 313 FORMATC 1H0, 5X, ^TG=^, 3CF20. 10, 5X) ) 

529. 005743B IFC IPRIMT.EQ.2) LJRITECG, 314) TLIC 1 ) , TLIC2) , TLIC3) 

530. 005753B 314 FORMAT C 1H0, 5X, ^TLI=? f , 3CF20 . 10, 5X) ) 

531. 005753B IFC IPRIMT.EQ.2) LJRITECG, 315) PCI) , PC2) , PC3) 

532. 0057G3B 315 FORMATC 1H0, 5X, ?P=*, 3CF20 . 10, 5X) ) 

533. " 0057G3B IFC IPRIMT.EQ.2) LJRITECG, 31G) TBC 1 ) , TBC2) , TBC3) 

534. 005773B 31G FORMAT C 1H0, 5X, ^TB=P, 3CF20 . 10, 5X) ) 

535. 005773B IFC IPRIMT.EQ.2) LJRITECG, 321) TDELI(1),TDELI(2),TDEWC3) 

53G. 00G003B 321 FORMAT C 1H0, 5X, ^TDE14=^, 3CF20. 10, 5X) ) 

537. 005003B 322 RH0G(2)=RH0G( 1 ) 

C ROTOR IMLET 

538. 00G003B 900 ISTAGE=ISTAGE+1 

539. OOGOOGB TG(1)=TGC3) 

540. 00G007B TLJC 1 )=TLJ(3) 

541. 00G010B TLJLIC 1 )=TULIC3) 
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542. 

543. 

544. 

545. 

546. 

547. 

548. 

549. 

550. 

551. 

552. 

553. 

554. 

555. 

556. 

557. 

558. 

559. 

560. 

561. 

562. 

563. 

564. 

565. 

566. 

567. 

568. 

569. 

570. 

571. 

572. 

573. 

574. 

575. 

576. 

577. 

578. 

579. 

580. 

581. 


582. 

583. 

584. 

585. 

586. 

587. 

588. 


589. 

590. 


591. 


00601 IB 
006013B 
006014B 
00G017B 
006021B 
00G022B 
00S024B 
006026B 
006027B 
006032B 
00G033B 
003035B 
006036B 
00G040B 
00G041B 
00G043B 
00G044B 
00G046B 
00G047B 
00G051B 
00G053B 
00S054B 
00G05GB 
006057B 
OOG061B 
00G063B 
0080G5B 
OOGOGGB 
00G0G7B 
00G073B 
OOG073B 
00G075B 
00S101B 
006105B 
00G112B 
00G112B 
00G115B 
006115B 
006117B 
006125B 


006133B 

006133B 

006134B 

006140B 

006143B 

006144B 

006146B 


006152B 

006152B 


00G15GB 


PC1)=PC3) 

TB( 1 )=TBC3) 

RH0AC1)=PC1)/RA/TGC1) 

WSC 1 )=WSC3) 

TDEWC 1 )=TDEWC3) 

XUC 1 )=XUC3) 

XCH4=CHMASS/MMASS 
XA=AMASS/MMASS 
XG=XA+XUC 1 )+XCH4 
XAIR( 1 )=XA 
XMETANC 1 )=XCH4 
XGAS( 1 )=XG 
XUC1)=XWC3) 

XWU Cl) =XUW ( 3 ) 

xwtci)=xwci)+xuwci) 

UMASSC 1 )=UMASSC 3) 

WMASS ( 1 ) =WMASS ( 3 ) 

WWMASS ( 1 ) =WWMASS ( 3 ) 

NSF1=NSF+1 

IFC ISTAGE. EQ.NSF1) GO TO 948 
GO TO 949 

948 AMASS=AMASS/C 1 . 0+BYPASS) 

CHMASS=CHMASS/ (1 . 0+BYPASS ) 

UMA5S ( 1 ) =UMASS (1 ) / ( 1 . 0+BYPASS ) 

UMASSC 1 ) =WMASS ( 1 ) / ( 1 . 0+BYPASS ) 

WWMASS ( 1 ) =UUMASS C 1 ) / C 1 . 0+BYPASS ) 

949 CONTINUE 

WTMASS C 1 ) =WMASS ( 1 ) +WWMASS ( 1 ) 

MMASS=AMASS+CHMASS+UMASSC 1 ) +WTMASS ( 1 ) 

TMASSC 1 )=MMASS 

GMASS ( 1 ) =TMASS ( 1 ) -WTMASS ( 1 ) 

IF( ISTAGE. EQ. 1 ) AMFAN=GMASS( 1 ) 

I F ( I STAGE . EQ . ( NSF+ 1 ) ) AMLPC=GMASS ( 1 ) 

I F ( I STAGE . EQ . ( NSF+NSLPC+ 1 ) ) AMHPC=GMASS ( 1 ) 

ALFA1=ALFA3 

CALL WICPRPCXA, XUC 1 ) , XCH4* TGC 1 ) » RMIX, CPMIX, GAMMA, Gin G2, G3) 

GAMMAS=GAMMA 

AAA1=AAA3 

IFCNSF.NE.O. AND. ISTAGE. EQ.CNSF+1)) AAA1=AREAC ISTAGE) 

I F C NSF . NE . 0 . AND . I STAGE . EQ . C NSF+NSLPC+ 1 ) ) AAA1=AREA C ISTAGE ) 

C STAGE PERFORMANCE CALCULATION 
JPERFM=2 
DAMY=0 . 0 

I F C WTMASS CD.GT.l. OE-4 ) 

$DAMY=WWMASSC 1 ) /WTMASS C 1 ) 

IFC DAMY.GT. 0.20) JPERFM=3 
IFC JPERFM.EQ.2) GO TO 1301 
IFC JPERFM.EQ.3) GO TO 1302 

1301 CALL WICSPBCFAIO, ISTAGE, MMASS, ALFA1 , WKDONE, DAUECN) , DELU, UMASSC 1 ) 
$» N> OMEGA 1 , 

S0MRGA2, OMEGA3, 0MEGA4, 0MEGA5, OMEGAS, OMEGAT, BETA1 , BETA2, U2, ALFA2, 
$ALFA3, DELTG, DELTW, W1 , W2, U1 , U2, U3» AK1, AK2, AK3) 

GO TO 1303 

1302 CALL WICSPCCFAIO, ISTAGE, MMASS, ALFA1 , WKDONE, DDAUECN) , DELU, UMASSC 
$1 ) * WWMASSC 1 ) , N, OMEGA1 

$, 0MEGA2, 0MEGA3 , 0MEGA4 , 0MEGA5 , 0MEGA6 , OMEGAT , BET A 1 , BET A2 , UZ, ALFA2, 
SALFA3, DELTG, DELTW, U1 , W2, U1 , U2, U3, REAUE, DELUU2, DELUL2, AK1 , AK2, 
$AK3) 

1303 CONTINUE 
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592. 

00G15GB 

593. 

00S15GB 

594. 

00S1G0B 

595. 

006171B 

59S. 

00G171B 

597. 

00G174B 

598. 

00G175B 

599. 

00G177B 

GOO. 

00G203B 

G01 . 

00G210B 

G02. 

00G210B 

G03. 

00G213B 

G04. 

00G213B 

G05. 

00G217B 

GOG. 

00G222B 

G07. 

00G223B 

G08. 

00G22GB 

G09. 

00G230B 

G10 . 

00G231B 

611. 

00S232B 

G12. 

00G234B 

G13. 

00G251B 


G14. 

00G251B 

G15. 

00GH56B 

GIG. 

00G25GB 

G17. 

00G2G1B 

G18. 

00G2G1B 

619. 

00G2G5B 

G20 . 

00G270B 

G21. 

00G271B 

G22. 

00G274B 

G23. 

00G27GB 

G24. 

00G27GB 

G25. 

00G302B 

G2G. 

00G303B 

G27. 

006304B 

G28. 

00G30GB 

G29. 

005323B 

G30. 

00G323B 

G31. 

006330B 

G32. 

00G330B 

G33. 

00G331B 

G34. 

OOG332B 

G35. 

00G332B 

G3G. 

00G335B 

G37. 

00533GB 

G38. 

00G340B 

639. 

00G340B 

G40. 

00G344B 


DELTG1=DELTG 

DELTU1=DELTU 

IF CU2.LT. 0.0. OR. U2.GT. 1000.0) URITEC6, 1304) U2 
1304 FORMAT C 1H0. IX* FAXIAL UELOCITY IS TOO HIGH OR TOO LOU*, /U2=*, 
$F10.5) 

IFCU2. LT.O.O. OR. U2.GT. 1000.0) GO TO 901 
AAA2=AREAS( ISTAGE) 

AAA3=AREAC ISTAGE+1 ) 

IF C ISTAGE. EQ. NS) AAA3=AAA2 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

C ROTOR IMPIMGEMEMT (SMALL DROPLET) 

IF ( IPRINT.EQ.2) URITECG, 8010) 

8010 FORMAT ( 1H1 » ^ ROTOR IMPINGEMENTCSMALL DROPLET)*) 

CALL UICIRS C ISTAGE. RADI 1 C ISTAGE) . XUC 1 ) . XG.RHOGC 1 ) . BETA1 , U1 , UU1 , 
SUU2.UU) 

AMIMPR=UU 

IFCAMIMPR.LT. 0.0) AMIMPR=0.0 

IF ( AM I MPR . GT . UMASS CD) AM IMPR=UMASS ( 1 ) 

AMREBR=AHIMPR»PREB/100.0 
AMUAKR=AMIMPR»C 1 . 0-PREB/100.0) 

AMNOIR=WMASS( 1 )-AMIMPR 
XUNOIR=AMNOIR/MMASS 
XUREBR=AKREBR/MMASS 
XUUAKR=ANUAKR/MMASS 

IFCIPRINT.EQ.2) URITECG, G09) AMIMPR, AMREBR, AMUAKR, AMMOIR, 

SXUMOIR, XUREBR, XUUAKR 
G09 FORMAT C 1H , 7CF12.5, IX) ) 

C +++++++++++ +-r +++++++ +++++++++++4*+++++++++++++++++++++++++++++++++++++ 

C ROTOR IMPINGEMENT C LARGE DROPLET) 

IFCIPRINT.EQ.2) URITECG, 8020) 

8020 FORMAT C 1H0» * ROTOR IMPINGEMENTCLARGE DROPLET)*) 

CALL UICIRLC ISTAGE, RADI 1 C ISTAGE ) , XUUC 1 ) , XG, RHOG Cl), BETA1 , HI , UU1 , UU 
$2, UU) 

BMIMPR=UU 

IFCBMIMPR.LT. 0.0) BMIMPR=0. 0 
IF CBMIMPR.GT. UUMASSC 1 ) ) BMIMPR=UUMASSC 1 ) 

BMREBR=BMIMPR*PREB/100.0 
BMWAKR=BMIMPR*C 1 . 0-PREB/100 . 0 ) 

BMNOIR=UUMASSC 1 )-BMIMPR 
XUUB=0 . 0 

IF C UUMASS C 1 ) . GT . 1 . OE-G ) XUUB=BMUAKR/UUMASS.C 1 ) 

XUUNOR=BMNOIR/MMASS 

XUURER=BMREBR/MMASS 

XUUUAR=BMUAKR/MMASS 

IFCIPRINT.EQ.2) URITECG, G090) BMIMPR, BMREBR, BMUAKR, BMNOIR. XUUNOR, 
$XUURER» XUUUAR 
G090 FORMAT C 1H , 7CF12.5, IX) ) 

C ROTOR UAKE 

IFCIPRINT.EQ.2) URITECG, 5030) 

8030 FORMAT C 1H0, * ROTOR MAKE*) 

N=N+1 

ALFA=BETA2 
DUAKEM=0. 0 

IF C AMUAKR. GT. 0.0) GO TO G30 
GO TO 631 

G30 CALL UICUAKCRHOGC 1 ) , U2» DUAKE, DUAKEM) 

G31 D1=DUAKEM 

IFCD1.LT. 0.0) D1=0. 0 
IFCD1.GT.DIN) D1=DIN 
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E41 . 

00G347B 


AMING1=AMWAKR 

642. 

00G347B 


ALFA=BETA2 

G43. 

00G351B 


RDELU 1 =D£LUU2 

G44. 

00G352B 


DUAKEM=0. 0 

645. 

006353B 


IF ( BMUAKR . GT . 0 . 0 ) GO TO 6310 

G4G. 

00S356B 


GO TO 6311 

G47. 

00G357B 

6310 

CALL UICUAKCRHOGC 1 ) , RDELU 1 , QUAKE * DUAKEM ) 

G48. 

006361B 

6311 

D2=DUAKEM 

649. 

00G361B 


IFCD2.LT. 0.0) D2=0. 0 

650. 

0063G5B 


IF CD2.GT.DDIN) D2=DDIN 

G51. 

006370B 


RUP2=C90.0-BETA2)/130.0 

G52. 

00G372B 


AMING2=BMUAKR“'RUP2 

G53. 

006373B 


RDELU2=DELUL2 

654. 

00G375B 


DUAKEM=0. 0 

655. 

00637GB 


I F ( BMUAKR . GT . 0 . 0 ) GO TO 6312 

65G. 

006400B 


GO TO 6313 

657. 

006400B 

6312 

CALL UICUAK (RHOGC 1 ) , RDELU2, DUAKE, DUAKEM) 

658. 

00S403B 

6313 

D3=DUAKEM 

659. 

00G403B 


IFCD3.LT. 0.0) D3=0.0 

660. 

00G407B 


IF CD3.GT.DDIM) D3=DDIM 

661 . 

006412B 


RLOU2=C90.0+BETA2)/180.0 

662. 

006414B 


AMING3=BMUAKR«RL0U2 

GG3. 

00G415B 


UMASSS=UMASSC 1 )-AMUAKR 

664. 

00S420B 


UMASSL=UUi1ASSC 1 ) -BMUAKR 

665. 

006422B 


CALL UICSIZCUMASSL, UMASSS* AMING1* AMING2, AMING3. DDAUEC1 



$ ) . D AUE ( 1 ) , D 1 . D2 , D3 , DL I M I T . AMSLL , AMLGE , DSLL, DLGE ) 

666. 

00S424B 


UUMASS C 2 ) =AMLGE 

667. 

00E424B 


UMASS C 2 ) =AMSLL 

668. 

00642GB 


IFCUMASSC2) .LT. 0. 0) UMASSC2)=0.0 

669. 

006431B 


IFCUUMASSC2) .LT.0.0) UUMASSC2)=0. 0 

670. 

00G433B 


UTMASS C 2 ) =UUMA5S C 2 ) +UMASS C 2 ) 

671. 

006434B 


UMASS C 2 ) =UMASS Cl) 

672. 

006435B 


MMASS= AM ASS+CHMASS+UM ASS (2 ) +UTMASS C 2 ) 

673. 

00644 IB 


TMASS C 2 ) =MMASS 

674. 

00S442B 


GMASS C 2 ) =TMASS C 2 ) -UTMASS C 2 ) 

675. 

00S443B 


DAUECN)=DSLL 

676. 

006444B 


DDAUECN)=DLGE 

677. 

006446B 


XU C 2 ) =UM ASS C 2 ) /MMASS 

678. 

O0G450B 


XUU C 2 ) =UUMASS C 2 ) /MMASS 

679. 

00 645 IB 


XUT C 2 ) =UTMASS C 2 ) /MM ASS 

680. 

00G452B 


XUC2)=XU(i) 

681. 

00G453B 


XCH4=CHMASS/MMASS 

682. 

006455B 


XA=AMASS/MMASS 

683. 

005457B 


XG=XA+XU C 2 ) +XCH4 

684. 

0064G2B 


XAIRC2)=XA 

685. 

00S463B 


XMET AN C 2 ) =XCH4 

686. 

006464B 


XGASC2)=XG 

687. 

00S465B 


US C 2 ) =UMASS ( 2 ) /AMASS 

688. 

006467B 


PU=USt 2) «P'C2)/CUSC2) +0.6219) 

689. 

006473B 


IFCPU.LT. 1.0E-8) PU=1 . OE-8 

690. 

00S476B 


TDEUC2) =U ICBPTCTGC2), PU ) 

691. 

00G500B 


RH0AC2) =P C 2 ) /RA/TG C 2 ) 

692. 

006502B 


CALL UICPRPCXA, XUC2) ,XCH4. TGC2) • RMIX, CPMIX. GAMMA, G1 , G2, G3) 

693. 

006505B 


RHOG C 2 ) =P ( 2 ) /RMIX/TGC2 ) 

694. 

00G507B 


IF C JPERPM. NE .3 ) BMASS=MMASS 

695. 

006513B 


IF C JPERFM . EG. 3) BMASS=GMASSC 2 ) 

696. 

0OG51GB 


CALL U I GMAC C I STAGE, BMASS, TG C2 ) > P C 2 ) » M» UZ» C» XUT C2 ) » ALFA2. 



$RMIX* CPMIX, AAA2) 

697. 

00G520B 


RHOG C2) = C1 . 0+G2*M 5 *2) «*G'3-RH0G C 2 ) 

698. 

006526B 


RHOM C 2 ) = 1 . 0/ C C 1 . 0-XUT C 2 ) ) /RHOG C 2 ) +XUT C 2 ) /RHOU ) 
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699. 

700. 

701. 

702. 

703. 

704. 

705. 

006533B 

006542B 

006562B 

006562B 

006600B 

006600B 

006607B 

RHOA ( 2 ) = ( 1 . 0+G2»M*»2 ) **G3*RH0A ( 2 ) 

IF ( IPRINT.EQ.2) WRITECG.G14) UZ, ALFA,D1,D2,D3,WWMASS(2), 

$WMASS ( 2 ) » UMASS (2),XW(2)»XU(2) 

614 FORMAT ( 1H , 10CF12.5, IX) ) 

IF( IPRINT.EQ.2) WRITEC6, G15)WS(2) , DAUE(N) . DDAUE(N) ,RH0M(2) ,RHOA 
$ C 2 ) . RHOM ( 2 ) » RHOG ( 2 ) 

615 FORMAT ( 1H , 7CF12.5, IX) ) 

IFCUZ. LT. 0.0. OR. UZ.GT. 1500.0) WRITEC6, 6150 ) 

6150 FORMAT ( 1H0, /UZ IS TOO HIGH OR TOO LOW: UZ=/,F10.4) 

706. 

006607B 

C CENTRIFUGAL EFFECT IN (UAPOR) 

IFCIPRINT.EQ.2) WRITECG, 8041 ) 

707. 

00S614B 

8041 FORMAT ( 1H0, /CENTRIFUGAL ACTION IN ROTOR (UAPOR)/) 

708. 

006G14B 

DELMU=0. 0 

709. 

006614B 

DELMAS=0.0 

710. 

006G14B 

AM ASU=UMASTT +BMDT A1+DMDTA2 

711. 

006G20B 

IFCICENTU.NE.O) GO TO 8042 

712. 

006G21B 

DELZZ=RC( ISTAGE)/12. 0 

713. 

00GG23B 

ALFAAU= ( BETA1+BETA2 ) /2 . 0 

714. 

006626B 

IRS=3 

715. 

006627B 

RHOGAS=RHOG ( 2 ) 

716. 

006630B 

RHUB=RRHUB( ISTAGE) 

717. 

006G32B 

CALL WICCENCURZERO.UUZERO, 10 . 0, UZ, DELZZ, ALFAAU, FN* IRS* RHOGAS* RHUB, 

718. 

00663GB 

$R2> U2, ITIP, UZTIME. XG, XA, XUC2) , XCH4, RRTIPC ISTAGE) , IPRINT) 
IRADD=IRAD 

719. 

006G36B 

IF(IRAD.EQ. 4. AND. ISTAGE. LE.NSF) IRAD=2 

720. 

006645B 

IF (IRAD . EQ . 4 . AND . ISTAGE . GT . NSF ) IRAD=1 

721. 

006G52B 

CALL WICDMUC IPRINT, IRAD, UMASSC 1 ) , UMASTL, UMASTL, URZERO, R2, 

722. 

006G5GB 

$AAREA ( I STAGE ), RADI 1 (I STAGE ) , DELMAS ) 
IRAD=IRADD 

723. 

00665GB 

UCENT=UCENT+ABS ( DELMAS ) 

724. 

0066G2B 

URZERO=R2 

725. 

006663B 

UUZER0=0. 0 

726. 

006GG3B 

8042 DELMU=DELMAS 

727. 

00G6G5B 

UM=UMASS(2) 

728. 

00SG67B 

UM ASS ( 2 ) =UM ASS ( 2 ) +DELM AS 

723. 

00GG70B 

IF ( UMASS (2) .LT. 1.0E-8) UMASS ( 2 ) = 1 . OE-8 

730. 

00GG73B 

DELMAS=UMASS(2)-UM 

731. 

00GG74B 

DELUUM=28 . 964/ 18 . 043*DELMAS 

732. 

006675B 

AMASS=AMASS-DELUUM 

733. 

005G77B 

MMASS=MMA3S-DELUUM+DELMAS 

734. 

006702B 

C CENTRIFUGAL EFFECT IN RQTOR(SMALL DROPLET) 
IFCIPRINT.EQ.2) WRITECG, 8040) 

735. 

006710B 

8040 FORMAT ( 1H0, /CENTRIFUGAL ACTION IN ROTOR (SMALL DROPLET)/) 

736. 

006710B 

DELMW=0. 0 

737. 

00S710B 

DELMAS=0.0 

738. 

006710B 

RW=0.0 

739. 

006711B 

RWW=0 . 0 

740. 

006712B 

IF C WTMASS ( 1 ) . GT. 1 . OE-6 ) RW=WMASS C 1 ) /WTMASS ( 1 ) 

741. 

006716B 

IFCWTMASSC 1 ) .GT. 1 . OE-G) RWW=WWMASS( 1 ) /WTMASS ( 1 ) 

742. 

00G721B 

AMASW= ( WMASTL-WCENT-WWCEMT ) *RW 

743. 

00S724B 

I F ( JCENT . EQ . 1 ) AMASW= ( WMASTL- WCENT-WWCENT ) * ( RW+RUW* ( 1 . 0-XWWB ) ) 

744. 

00673GB 

BMASW= ( WMASTL-WCENT-WWCENT ) *RWW*XWWB 

745. 

00G741B 

IFCICENT.EQ.4.0R. ICENT.EQ.5) GO TO 996 

746. 

00G745B 

IF( ICENT.EQ.7)G0 TO 996 

747. 

00G747B 

IF (DAUECN-l ) .LT. 1 . OE-G) GO TO 996 

748. 

00G752B 

IFCWMASSC2) .LT. 1.0E-6) GO TO 996 

749. 

Q0G754B 

DD=DAUE(N-1) 

750. 

006755B 

DELZZ=RC( ISTAGE)/12. 0 
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751. 

752. 

753. 

754. 

755. 

756. 

757. 

758. 

759. 

760. 

761. 

762. 

763. 

764. 

765. 

766. 

767. 

768. 


769. 

770. 

771. 

772. 

773. 

774. 

775. 

776. 

777. 

778. 

779. 

780. 

781. 

782. 

783. 

784. 

785. 

786. 

787. 

788. 

789. 

790. 

791. 

792. 

793. 

794. 

795. 

796. 

797. 

798. 

799. 

800. 
801. 
802, 

803. 

804. 


00S760B 

006763B 

006764B 

006765B 

006767B 

006773B 

006773B 

007002B 

007007B 

007014B 

007014B 

007016B 

007017B 

007021B 

007022B 

007027B 

007033B 

007040B 


007044B 

007051B 

007051B 

007051B 

007051B 

007055B 

007057B 

007062B 

007064B 

007065B 

007070B 

007071B 

007072B 

007073B 

007074B 

007100B 

007100B 

007107B 

007114B 

007121B 

007121B 

007123B' 

007124B 

007126B 

007133B 

007133B 

007135B 

007137B 

007140B. 

007141B 

007145B 

007150B 

007154B 

007155B 

007157B 

007160B 


ALFAAU=(BETAl+BETA2)/2. 0 
IRS=2 

RH0GAS=RH0G(2) 

RHUB=RRh'UB( I STAGE) 

CALL WICCENCRZERO, UZERO, DD, UZ» DELZZ> ALFAAU >FN» IRS.RHOGAS* 

1RHUB, R2. U2* ITIP, UZTIME, XG, XA, XU(2) , XCH4, RRTIPC ISTAGE) . IPRINT) 
IRADD=IRAD 

IF ( IRAQ. EQ. 4. AMD. I STAGE . LE . NSF ) I R AD=2 
IF ( I RAD . EQ . 4 . AND . ISTAGE . GT . NSF ) I RAD=1 

CALL WICDMSC IPRINT, IRAD, WMASSC 1 ) , AMASW, AMASW, RZERO, R2, AAREAC ISTA 
SGE ), RADI HIST AGE) .RRTIPC ISTAGE ),DM1N, DMOUT , AMASW2 . DELMAS ) 
IRAD=IRADD 
WCENT=DELMAS 
RZER0=R2 
UZER0=U2 

996 DELMW=DELMAS 

RWRWW=RW+RWW* ( 1 . 0-XWWB ) 

IF ( JCENT. EQ. 1 ) DELMW=0 . 0 

IF ( JCENT . EQ . 1 . AND . RWRWW . C-T . 1 . OE-6 ) DELMW=DELMAS*RW*RWRWW 
IF ( JCENT . EQ . 1 ) DELMWW=DELMAS-DELMW 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
C CENTRIFUGAL EFFECT IN ROTOR (LARGE DROPLET) 

IF ( IPRINT. EQ. 2) URITEC6. 8050) 

8050 FORMAT ( 1H0, ^ CENTRIFUGAL ACTION IN ROTOR (LARGE DROPLET)*) 

DELMAS=0 . 0 
DELriQUI=0.0 

IF (IICENT.EQ.4.0R. IICENT .EQ.5) GO TO 9996 
IFCIICENT .EQ.7)G0 TO 9996 
IF (DDAUECN-1 ) .LT. 1 . 0E~6) GO TO 9996 
IF (NWMASS(2) . LT. 1. OE-6) GO TO 9996 
DD=DDAUE(N-1 ) 

DELZZ=RC(ISTAGE)/12.0 
ALFAAU=0 . 0 
I IRS=2 

RHOGAS=RHOG ( 2 ) 

RHUB=RRHUB( ISTAGE) 

CALL UICCENCRRZERO. UUZERO* DD. UZ> DELZZ* ALFAAU , FN, IIRS, RHOGAS* 
1RHUB. R2, U2* I ITIP. UZTIME* XG» XA, XU(2) * XCH4. RRTIPC ISTAGE) * IPRINT) 
IRADD=IRAD 

IF ( IRAD . EO . 4 . AND . I STAGE . LE . NSF ) I RAD=2 
I F ( I RAD . EQ . 4 . AND . ISTAGE . GT . NSF ) I RAD= 1 

CALL UICDMLC IPRINT, IRAD, WUMASSC 1 ) , BMASU, BMASW, RRZERO, R2, AAREAC IS 
STAGE) , RADI 1 ( ISTAGE) , RRTIPC ISTAGE) , DMIN, DMOUT, AMASW2, DELMAS) 
IRAD=IRADD 
RRZER0=R2 
UUZER0=U2 

9996 DELMWW=DELMAS 

IF ( JCENT . EQ . 1 ) DELMWW=DELMWW+DELMAS 
UM=WMASS(2) 

UWM=UIWMASS(2) . 

WMASS ( 2 ) =WMASS ( 2 ) +DELMW 
WWMASS ( 2 ) =WWMASS ( 2 ) +DELMWU 
WTMASS ( 2 ) =UMASS ( 2 ) +RWMASS ( 2 ) 

I F (WTMASS (2 ) . GT . WMASTL ) TT=WTMASS ( 2 ) /WMASTL 

IF ( WTMASS ( 2 ) . GT . UMA3TL ) WMASS C 2 ) =WMASS ( 2 ) *TT 

IF ( WTMASS ( 2 ) . GT . WMASTL ) WWMASS ( 2 ) =WWMASS ( 2 ) /TT 

DELMW=WMASS ( 2 ) -WM 

DELMWW=WWMASS ( 2 ) -WWM 

WTMASS ( 2 ) =WMASS ( 2 ) +WWMASS C 2 ) 

DELMAS=WTMASS ( 2 ) -WTMASS ( 1 ) 
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805. 

806. 

807. 

808. 
808. 
810. 
811. 
812. 

813. 

814. 

815. 

816. 

817. 

818. 
818. 
820. 
821. 


822. 

823. 

824. 

825. 

826. 

827. 

828. 
828. 

830. 

831. 


832. 

833. 

834. 

835. 

836. 

837. 

838. 
833. 

840. 

841. 


842. 

843. 

844. 

845. 

846. 

847. 

848. 
848. 

850. 

851. 

852. 

853. 

854. 


007162B 
007163B 
007164B 
007165B 
007167B 
007170B 
007172B 
007174B 
007177B 
007202B 
007205B 
00721 IB 
007214B 
007215B 
007217B 
007221B 
007226B 


007231B 

007236B 

007236B 

007241B 

007241B 

007245B 

007250B 

007251B 

007254B 

007272B 


007272B 

007277B 

007277B 

007302B 
007302B 
007306B 
00731 IB 
007312B 
007315B 

007334B 


007334B 

007341B 

007341B 

007342B 

007343B 

007343B 

007346B 

007347B 

007351B 

007351B 

007355B 

007360B 

007360B 


MMASS=MMASS+DEL.MAS 

XU ( 2 ) =UMASS ( 2 ) /MMASS 

XUU ( 2 ) =WUMASS ( 2 ) /MM ASS 

XU ( 2 ) =UHASS ( 2 ) /MMASS 

XA=AMASS/MMASS 

XCH4=CHMASS/MMASS 

XG=XA+XU ( 2 ) +XCH4 

DELUUM=RHOG C 2 ) /RHOU*DELMAS 

AMASS=AMASS-DELUUM* ( AMASS/GMASS ( 2 ) ) 

UMASS ( 2 ) =UMASS ( 2 ) -DELUUM* ( UMASS ( 2 ) /GMASS ( 2 ) ) 
CHMASS=CHMASS-DELUUM* ( CHMASS/GMASS ( 2 )) 

MMASS=AMASS+UMASS ( 2 ) +CHMA5S+UTMASS C 2 ) 

US ( 2 ) =UMASS ( 2 ) /MMASS 
UCEMT=UCENT+DELMU 
UUCEMT =UUCEMT +DELMWW 
I F C UMASS (2) .LT. 1.0E-6) DAUE ( N) =0 . 0 
I F ( UUMASS (2) ,LT. 1 . 0E-6) DDAUE ( N ) =0 . 0 
C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

C STATOR IMPIMGEMEMT (SMALL DROPLET) 

IF ( IPRIMT. EQ. 2) URITEC6, 8060) 

8060 FORMAT C 1H0, * STATOR IMPIMGEMENT (SMALL DROPLET)*) 

CALL WICISSC I STAGE* RADI2C ISTAGE) » XU(2) > XG» RH0GC2) » ALFA2» U2» 
$Uim.UU2,WU) 

AMIMPS=UW 

IF(AMIMPS.GT.k'MASS(2)) AMIMPS=UMASS(2) 

IFCAMIMPS.LT. 0.0) AMIMPS=0. 0 
AMREBS=AMIMPS--PREB/100. 0 
AMWAKS=AMIMPS* ( 1 . O-PREB/l 00 . 0 ) 

IF ( IPRIMT .EQ. 2) URITE(6,617) XU(2) , XG, RHDGC2) , U2, Ukl, AMIMPS, AMRE 
$BS» AMUIAKS 

617 FORMAT ( 1H ,8(F12.5»1X)) 

C STATOR IMPIMGEMEMT (LARGE DROPLET) 

IF ( IPRIMT. EQ. 2) WRITEC6, 8070) 

8070 FORMAT ( 1H0. ^ STATOR IMPIMGEMEMT (LARGE DROPLET)*) 

CALL UICISLC ISTAGE, RADI2C ISTAGE) , XUU(2) , XG, RH0G(2) » ALFA2, U2, UU1 
$,UW2,UU) 

BMIMPS=UW 

IFCBMIMPS.LT. 0.0) BMIMPS=0. 0 
IF ( BMIMPS. GT . UUMASS ( 2 ) ) BMIMPS=UUMASS( 2 ) 
BMREBS=BMIMPS«PREB/100.0 
BMUAKS=BMIMPS»( 1 . 0-PREB/100 . 0 ) 

IF ( IPRIMT. EQ. 2) URITEC6, 6G17) XUU( 2) , XA, RH0A(2) , UZ.UU, BMIMPS, BM 
$REB3, BMUAKS 

6617 FORMAT ( 1H ,8(F12.5, IX) ) 

C STATOR UAKE 

IF ( IPRIMT. EO. 2) URITEC6, 8080) 

8080 FORMAT ( 1H0, * STATOR UAKE*) 

M=M+1 

ALFA=ALFA3 
DUAKEM=0 . 0 

IF ( AMUAKS. GT. 0 . 0 ) GO TO 632 
GO TO 633 

632 CALL UICUAK(RH0G(2) , U3, DUAKE, DUAKEM) 

633 D1=DUAKEM 
IFCDl.LT. 0.0) D1=0 . 0 
IF(Dl.GT.DIM) D1=DIM 
AMIMG1=AMUAKS 
ALFA=ALFA3 


133 



855. 

007362B 


SDELU 1 =DELUU2 

85S. 

007363B 


DHAKEM=0 . 0 

857. 

0073S4B 


IF ( EMHAKS . GT . 0 . 0 ) GO TO 6330 

8^8. 

007367B 


GO TO 6331 | 

853. 

007370B 

6330 

CALL HI CHAK ( RHOG ( 2 ) , SDELU 1 , DHAKE , DH AKEM ) 

8G0 . 

007372B 

6331 

D2=DMAKEM 

8G1. 

007372B 


IF(D2. LT. 0 . 0 ) D2=0 . 0 

862. 

00737GB 


IFCD2.GT.DDIN) D2=DDIN 

8G3. 

007401B 


SUP2=(90.0-ALFA3)/180.0 

864. 

007403B 


AM ING2=BMHAKS»SUP2 

8G5. 

007404B 


SDELU2=DELUL2 

8GG. 

007406B 


DHAKEM=0 . 0 

8G7. 

007407B 


IFCEMHAKS.GT.O.O) GO TO 6332 

8G8. 

00741 IB 


GO TO 6333 

853. 

00741 IB 

6332 

CALL HICHAKCRH0GC2) » SDELU2, DHAKE. DWAKEM) 

870. 

007414B 

6333 

D3=DHAKEM 

871. 

007414B 


IFCD3.LT. 0.0) D3=0 . 0 

872. 

007420B 


IFCD3.GT.DDIN) D3=DDIM 

873. 

007423B 


SL0H2= ( 90 . 0+ALFA3 1/180.0 

874. 

007425B 


AMING3=BMHAKS«SL0H2 

875. 

00742GB 


HMASSS=HMASS ( 2 ) -AMHAKS 

87G. 

007431B 


HMA5SL=HHMASS C 2 ) -BMHAKS 

877. 

007433B 


IF (HMASSS.LT. 0.0) HMASSS=0 . 0 

878. 

007436B 


IFCHMASSL.LT. 0.0) HMASSL=0. 0 

873. 

007440B 


CALL HICSIZCHMASSL. HMASSS. AMING1. AMING2. AMING3* DDAUEC2) • DAUEC 



$2 ) , D 1 , D2 , D3 , DL I M I T , AMSLL . AMLGE , DSLL , DLGE > 

880. 

007442B 


HHMASS ( 3 ) ^AMLGE 

881. 

007442B 


HMASS ( 3 ) =AMSLL 

882. 

007444B 


IF (HMASSC3) .LT. 0. 0) HMASS(3)=0.0 

883. 

007447B 


IF (HHMASSC3) .LT.0.0) HHMASS(3)=0 . 0 

884. 

007451B 


HTMASS ( 3 ) =HWMASS ( 2 ) +HMAS3 ( 2 ) 

885. 

007452B 


UMASS ( 3 ) =UMASS ( 2 ) 

88G. 

007453B 


MMASS=AMASS+CH.MASS+UMASS ( 3 ) +HTMASS ( 3 ) 

887. 

007457B 


TMASS ( 3 ) =MMASS 

888. 

007460B 


GMASS ( 3 ) =TMASS ( 3 ) -HTMASS C 3 ) 

883. 

007461B 


DAUEC N)=DSLL 

830. 

007462B 


DDAUE(N)=DLGE 

831. 

007464B 


XH ( 3 ) =HMASS ( 3 ) /MMASS 

832. 

0074G6B 


XHHC 3) "HHMASS (3)/MMASS 

833. 

007467B 


XHT ( 3 ) =HTMASS ( 3 ) /MMASS 

834. 

007470B 


XU(3)=XU(2) 

835. 

007472B 


XA=AMASS/MMASS 

836. 

007474B 


XCH4=CHMASS/MMASS 

837. 

007475B 


XG=XA+XU ( 3 ) +XCH4 

838. 

007500B 


XAIR(3)=XA 

833. 

007500B 


XMETAM(3)=XCH4 

300. 

007502B 


XGAS(3)=XG 

301. 

007503B 


IF ( HMASSO .LT.1.0E-G) HMA5S0=HMASS ( 3 ) 

302. 

007510B 


IF CHHMASO . LT . 1 . OE-6 ) HHM ASO=HHMASS ( 3 ) 

303. 

007513B 


I F ( HTM ASS ( 3 ) . GT . 0 . 0 ) RH=HM ASS ( 3 ) /HTMASS ( 3 ) 

304. 

007517B 


I F ( HTMASS ( 3 ) . GT . 0 . 0 ) RHH=UUMASS C 3 ) /HTMASS ( 3 ) 

305. 

007522B 


TG(3)=TG(2) 

306. 

007522B 


TH(3)=TH(2) 

307. 

007524B 


IF ( IPRINT.EQ.2) HRITEC6.G19) RH0A(2)*UZ» ALFA»D1»D2»HHMASS(3) 



$> HMASSC3) * UMASSC3) > XHC3) »XU(3) 

308. 

007544B 

613 

FORMAT ( 1H » 10(F12.5> IX) ) 

303. 

007544B ‘ 


IFC IPRINT.E0.2) HRITEC6? 620) DAUE(N),TG(3),TH(3). 

310. 

007555B 

620 

FORMAT ( 1H » 3CF12. 5> IX) ) 

311. 

007555B 


IFCHMASSC2) .GT. 0. 6 . AMD. HHMASS (2) .GT. 0. 0) GO TO 951 

312. 

007561B 


IFC HMASS ( 2 ) . GT . 0 . 0 ) GO TO 951 
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913. 

007563B 


I F ( WUMASS ( 2 ) . GT . 0 . 0 ) GO TO 951 

914. 

Q07565B 


WS(3)=WS(2) 

915. 

007565B 


TB(3)=TB(2) 

916. 

007567B 


TDEW(3)=TDEW(2) 

917. 

007570B 


DELTG2=0.0 

918. 

007571B 


DELTG3=0.0 

919. 

007572B 


DELTW2=0.0 

920. 

007573B 


TRATI0=TG(3)/TG(1) 

921. 

007574B 


DAUE(N)=0 . 0 

922. 

007575B 


RHOA ( 3 ) =P ( 3 ) /RA/TG ( 3 ) 

923. 

007600B 


CALL WICPRP(XA, XU(3) , XCH4,TG(3)» RMIX, CPMIX, GAMMA, Gl, G2, G3) 

924. 

007603B 


RH0G(3)=P(3)/RMIX/TG(3) 

925. 

007605B 


IF(JPERFM.NE.3) BMASS=MMASS 

926. 

00761 IB 


IF(JPERFM.E0.3) BMASS=GMASS(3) 

927. 

007614B 


CALL WICMAC( I STAGE, BMASS, TG ( 3) > P(3) , M, UZ, C, XWT(3) » ALFA3, 
$RMIX, CPMIX, AAA3) 

928. 

007616B 


RHOG ( 3 ) = ( 1 . 0+G2*M**2 ) **G3*RH0G ( 3 ) 

929. 

007624B 


RHOM ( 3 ) = 1 . 0/ ( ( 1 . 0-XWT ( 3 ) ) /RHOG ( 3 ) +XUT ( 3 ) /RHOW ) 

930. 

007631B 


RHOA ( 3 ) = ( 1 . 0+G2*M**2 ) **G3*RHOA ( 3 ) 

931. 

007640B 


GO TO 950 

932. 

007640B 

951 

CONTINUE 

933. 

007642B 


LITMASS ( 3 ) =WMASS ( 3 ) +WWMASS ( 3 ) 



U i i i i i i i i r i i i i i t » i i t t i i t r r t txi — i — rn — ttttt — n — m — i — i — i — tttt — i — i — i — ri — n — rTTTT 

C HEAT-TRANSFER (SMALL DROPLET) 

934. 

007643B 


IF ( IPRINT .EQ. 2) WRITE(6, 8120) 

935. 

007651B 

8120 

FORMAT ( 1H0, / HEAT TRANSFER/) 

936. 

007651B 


DELTGH=0 . 0 

937. 

007651B 


DELTWH=0. 0 

938. 

007651B 


IF ( I CENT. EO. 3. OR. I CENT. EQ. 5) GO TO 8122 

939. 

007655B 


IF(DAUE(N-2) . GT. 0. 0. AND. DAUE(N) . GT. 0 . 0 ) GO TO 8121 

940. 

007662B 


GO TO 8122 

941. 

007662B 

8121 

RE=Q . 0 

942. 

0076G3B 


XU1 = (XU( 1 )+XU(3) )/2. 0 

943. 

007G66B 


Xm = (XW(l)+XW(3))/2.0 

944. 

007671B 


UMASS 1 = ( UMASS ( 1 ) +WMA5S ( 3 ) ) /2 . 0 

945. 

007G74B 


UMASS 1 = ( UMASS ( 1 ) +UMASS ( 3 ) ) /2 . 0 

946. 

007G77B 


CPG1=XA*WICCPA(TG( 1 ) )+XU( 1 )«WICCPH(TG( 1 ) )+XCH4*UIICCPC(TG( 1 ) ) 

947. 

007712B 


CPG3=XA*WICCPA ( TG ( 3 ) ) +XU ( 3 ) *WICCPH ( TG ( 3 ) )+XCH4*WICCPC ( TG( 3 ) ) 

948. 

007725B 


CPG=(CPGl+CPG3)/2.0 

949. 

007730B 


CALL WICHET ( TG ( 1 ) , TG ( 3 ) , TW ( 1 ) , TW ( 3 ) , DAUE ( N-2 ) , DAUE ( N ) 

$, DELZ( ISTAGE) , UZ, UMASS1, UMASS1 , AMASS, CHMASS, CPG, CPU, DELTGH 
$, DELTLIH, RE) 

950. 

007737B 

8122 

DELTG2=DELTGH 

951. 

007737B 


DELTW2=DELTWH 

LXXJ 1 I LJ L J LXXXJ LXXXJ 1 L1XXXXXXJ LJ 1 LX 



C HEAT TRANSFER (LARGE DROPLET) 

952. 

007741B 


DELTGH=0. 0 

953. 

007742B 


DELTWH=0 . 0 

954. 

007742B 


IF( I I CENT. EQ. 3. OR. I ICENT. EQ. 5) GO TO 8124 

955. 

007745B 


IF ( DDAUE ( N~2 ) . GT . 0 . 0 . AND . DAUE ( N ) . GT . 0 . 0 ) GO TO 8123 

956. 

007753B 


GO TO 8124 

957. 

007753B 

8123 

RE=0 . 0 

958. 

007754B 


IF ( DDAUE (N-l ) . GT. 0. 0 ) RE=REAUE 

959. 

007761B 


XU1 = (XU( 1 )+XU(3) )/2. 0 

960. 

007763B 


XWl=(XWW(l)+XRW(3))/2.0 

961. 

00776GB 


WMASS 1 = ( WWMASS ( 1 ) +WWMASS ( 3 ) ) /2 . 0 

962. 

007771B 


UMA5Sl=(UMASS(l)+UMASS(3))/2.0 

963. 

007774B 


CPG1=XA*WICCPA(TG( 1 ) )+XU( 1 )«WICCPH(TG( 1 ) )+XCH4*WICCPC(TG( 1 ) ) 

964. 

010007B 


CPG3=XA~WICCPA(TG(1))+XU(3)*WICCPH(TG(3))+XCH4*WICCPC(TG(3)) 

965. 

010022B 


CPG= ( CPG1 +CPG3 ) /2 . 0 
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9GG. 

010025B 

9G7. 

010034B 

9S8. 

010034B 

9G9. 

01003GB 

970. 

010042B 

971. 

010045B 

972. 

010047B 

973. 

010051B 

974. 

0100G7B 


975. 

0100G7B 

97G. 

010074B 

977. 

010074B 

978. 

010075B 

979. 

01007GB 

980. 

010100B 

981. 

010101B 

982. 

010102B 

983. 

01010GB 

984. 

010111B 

985. 

01011GB 

98G. 

010116B 


987. 

010121B 

S88. 

010121B 

989. 

010125B 

990. 

01012GB 

991. 

010127B 

992. 

010131B 

993. 

010132B 

994. 

010133B 

995. 

010137B 

996. 

010142B 

997. 

010151B 

998. 

010154B 

999. 

010154B 


1000. 

010157B 

1001. 

010157B 

1002. 

010163B 

1003. 

0101G4B 

1004. 

0101G6B 

1005. 

010172B 

1006. 

010175B 

1007. 

010177B 

1008. 

010201B 

1009. 

010202B 

1010. 

010205B 

1011. 

010210B 

1012. 

01021 IB 

1013. 

010212B 

1014. 

010213B 

1015. 

010214B 

1016. 

01021GB 


CALL W I CHET ( TG ( 1 ) , TG ( 3 ) , TWW ( 1 ) , TWW ( 3 ) , DDAUE < N-2 ) , DDAUE ( M ) 

$, DELZC ISTAGE ) , UZ, WMASS1 » UMASS1 , AMASS, CHMASS, CPG, CPU, DELTGH 
$, DELTWH, RE) 

8124 DELTG3=DELTGH 
DELTW3=DELTWH 

TG(3)=TG( 1 )+DELTGl-DELTG2-DELTG3 
TW(3)=TW( 1 )+DELTUl+DELTW2 
TWW(3)=TWW( 1 )+DELTW3 
TRATI0=TG(3)/TG(1) 

IF ( I PRINT. EQ. 2) URITECG.G27) DELTG2, DELTW2, DELTG3, DELTW3, TG(3) » 
$TW(3) , TWWC3) » TRATIO 
G27 FORMAT C 1H , 8CF15.6, IX) ) 

C MASS-TRANSFER 

IFCIPRINT.EG.2) WRITECG, 8130) 

8130 FORMAT C 1H0, ^ MASS TRANSFERS) 

DAUEN2=DAUE(N-2) 

DAUEN=DAUE(N) 

DZ=DELZ( ISTAGE) 

RE=0. 0 
DMDTAU=0 . 0 

IF ( ICENToEQ. 3.0R. ICENT. EQ. 5) GO TO G37 
IF C ICENT.EQ. G. OR. ICENT. EQ.7) GO TO G37 
IFCDAUECN-2) . GT. 0. 0 . AND.DAUE(N) . GT. 0. 0) GO TO G3G 
GO TO G37 

G3G CALL WICMASCWSC 1)»TW(1)»TW(3)»P(1)»P(3)»TG(1)»TG(3)»DZ» PWB1, PWB2 
$, PW1 , PW2, UZ, DAUEN2, DAUEN, HW2, UMASSC 1 ) , UMASS2, WMASSC 1 ) , WMASS2* 
SDMDTAU, AMASS, RE) 

G37 DMDTA1=DMDTAU 

IF(DMDTAl.LT.O.O) DMDTA1=0.0 
DAUEN2=DDAUE(N-2) 

DAUEN=DDAUE C N ) 

DZ=DELZ( ISTAGE) 

RE=0 . 0 
DMDTAU=0 . 0 

IF( I ICENT.EQ. 3. OR. IICENT.EQ.5) GO TO 6370 
IF ( I ICENT.EQ. 6. OR. I I CENT. EQ.7) GO TO G370 
IF C DDAUE ( N- 1 ) . GT . 0 . 0 . AND . DDAUE ( N ) . GT . 0 . 0 ) RE=REAUE 
IF(DDAUE(N-2) .GT. 0. 0. AND. DDAUE(N) . GT. 0. 0 ) GO TO G3G0 
GO TO G370 

G3G0 CALL UICMAS(HS( 1 ) , TRUK 1 ) , TW-K3) , PC 1),P(3),TG(1),TG(3), DZ, PWB1, PUB2 
$, PW1 , PW2, UZ, DAUEN2, DAUEN, HLI2, UMASSC 1 ) , UMASS2, WWMASSC 1 ) , WMASS2, 
SDMDTAU, AMASS, RE) 

G370 DMDT A2=DMDT AU 

IF (DMDTA2. LT. 0 . 0) DMDTA2=0.0 
WMASS ( 3 ) =WMASS ( 3 ) -DMDTA 1 
HUM ASS ( 3 ) =WWM ASS ( 3 ) -DMDT A2 

WMA3TL=HMASTL-(DMDTA1+DMDTA2 )*AAREAS( ISTAGE )/AAA2 

IF (WMASTL.LT. 0.0) WMASTL=0. 0 

IFCWMASSC3) .LT. 0 . 0 ) WMASS(3)=0.0 

IF (I-1WMASSC3) .LT. 0. 0 ) WWMASS(3)=0. 0 

WTMASS ( 3 ) =WMASS ( 3 ) +WWMASS C 3 ) 

UMASS ( 3 ) =UMASS ( 3 ) +DMDTA1 +DMDT A2 
MMASS=AMASS+CHMASS+UMASS ( 3 ) +WTMASS ( 3 ) 

TMASS ( 3 ) =MMASS 

GMASS ( 3 ) =TMASS ( 3 ) -WTMASS ( 3 ) 

XW ( 3 ) =WMASS ( 3 ) /MMASS 
XWW ( 3 ) =WWMASS ( 3 ) /MMASS 
XWT (3) =WTMASS ( 3 ) /MMASS 
XU ( 3 ) =UMASS C 3 ) /MMASS 
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1017. 

010217B 

1018. 

010221B 

1019. 

010222B 

1020. 

010225B 

1021. 

010225B 

1022. 

010227B 

1023. 

010230B 

1024. 

010232B 

1025. 

01023GB 

102G. 

010241B 

1027. 

010243B 

1028. 

010245B 

1029. 

010250B 

1030. 

010252B 

1031. 

01025GB 

1032. 

0102G1B 

1033. 

0102G3B 

1034. 

010271B 

1035. 

01027GB 

103G. 

010305B 

1037. 

010310B 

1038. 

010331B 

1039. 

010331B 

1040. 

01034GB 

1041. 

01034GB 

1042. 

01034GB 

1043. 

010350B 

1044. 

010353B 

1045. 

010354B 

104G. 

01035GB 

1047. 

010357B 

1048. 

0103G2B 

1049. 

0103G4B 

1050. 

010372B 

1051. 

010372B 

1052. 

010372B 

1053. 

010373B 

1054. 

010375B 

1055. 

010400B 

105G. 

010402B 

1057. 

010410B 

1058. 

010413B 

1059. 

010420B 

10G0. 

010420B 

10G1 . 

010427B 

10G2. 

010427B 

10G3. 

010432B 

10G4. 

010432B 

10G5. 

010435B 


XA=AMASS/MMASS 
XCH4=CHMASS/MMASS 
XG=XA+XU ( 3 ) +XCH4 
XAIR(3)=XA 
XMETAN C 3 ) =XCH4 
XGAS(3)=XG 

US ( 3 ) =UMASS ( 3 ) /AMASS 
PW=WS(3)*P(3)/(WS(3)+0.G219) 

IFCPW.LT. l.OE-S) PW=1 . OE-S 
TEEU(3)=UICBPT (TGC3) * PU) 

RHOA ( 3 ) =P ( 3 ) /RA/TG ( 3 ) 

CALL WICPRPCXA, XUC 3) , XCH4, TGC 3) , RMIX, CPMIX, GAMMA, Gl, G2» G3) 

RHOG ( 3 ) =P ( 3 ) /RM I X/TG ( 3 ) 

IFCJPERFM.NE.3) BMASS=MMASS 
IFC JPERFM.EQ.3) BMASS=GMASS(3) 

C ALL WI CMAC ( I STAGE , BMASS , TG C 3 ) , P C 3 ) , M, UZ, C, XWT ( 3 ) , ALFA3 , 

$RMIX, CPMIX, AAA3) 

RHOG ( 3 ) = ( 1 . 0+G2*M**2 ) **G3*RH0G ( 3 ) 

RH0M(3)=1 . 0/( ( 1 . 0-XNT (3) )/RH0G(3)+XWT(3)/RH0W) 

RHOA ( 3 ) = ( 1 . 0+G2*M**2 ) «*G3*RH0G ( 3 ) 

TB(3)=WICBPT(TG(3),P(3)) 

IFCIPRINT.EQ.2) WRITECS,G24) WWMASS(3),XWWC3),DDAUE(N),WMASS(3), 
$UM ASS (3), XW (3), XU (3), US (3), DAUE CM) 

G24 FORMAT ( 1H , SCF12. 5, IX ) ) 

IF ( IPRIMT . E0.2 ) WRITECG.G25) RH0A(3),RH0M(3),RH0GC3),DMDTA1,DMD 
$TA2, PW2, TWC3) , TGC3) 

G25 FORMAT ( 1H , 8CF12.5, IX) ) 

950 DELTGW=DELTG1 
DELTDW=DELTW1 
DELTGH=-BELTGc-DELTG3 
DELTDH=DELTW2 
DELP=P(3)-P( 1 ) 

GAMMAO=GAMMA 
TB(3)=WICEPT (TG(3),P(3)) 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
C OUTPUT (STAGE FERFORMAMCE) 

IFCIDESIN.EQ.2) GO TO 475 
WRITECG, 400 ) FAIO, ISTAGE 

400 FORMAT ( 1H1 , IX, ********************* IX, 

$*INITIAL FLOW COEFFICIENT=S, 1X,F5.3, 1X»*(ISTAGE= *, 12, IX, 

$P)P, 2X, *************-*********) 

475 COMTIMUE 

PRATI0=P(3)/PC 1 ) 

TRATI0=TG(3)/TG( I ) 

GAMMAU= ( GAMMAS+GAMMAO ) /2 . 0 
G4= ( GAMMAU- 1 . 0 ) /GAMMAU 

ETAA(ISTAGE)=(PRATIO**G4-1.0)/(TRATIO-1.0) 

IFCIDESIM.EQ.2) GO TO 470 
WRITECG, 402) JPERFM 

402 FORMAT ( 1H0, 5X» SSTAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENTS, 

$* ( JPERFM=S , 1 1 > S ) S ) 

WRITECG, 401 ) PRATIO, TRATIO, ETAAC ISTAGE) 

401 FORMAT ( 1H0, 5X, SSTAGE TOTAL PRESSURE RATIO=S, F12.5, /, . 

$6X» SSTAGE TOTAL TEMPERATURE RATI0=*,F12.5,/, 

$GX> SSTAGE ADIABATIC EFFICIENCY=S, F12.5) 

WRITECG, 4025) 

4025 FORMAT ( 1H0, 12X, ***STAGE INLET***, 4X,***ST AGE OUTLET***, 

$4X, S**STAGE OUTLET***) 

WRITECG, 4026) 

402G FORMAT ( 1H , 33X, SCBEFORE INTER-*, GX, SC AFTER INTER-*) 
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10GG. 

10G7. 

10G8. 

10G3. 

1070. 

1071. 

1072. 

1073. 

1074. 

1075. 
107G. 

1077. 

1078. 

1079. 

1080. 
1081. 
1082. 

1083. 

1084. 

1085. 
103G. 

1087. 

1088. 

1089. 

1090. 

1091. 

1092. 

1093. 

1094. 

1095. 
109G. 

1097. 

1098. 

1099. 

1100. 
1101. 
1102. 

1103. 

1104. 

1105. 
110G. 

1107. 

1108. 

1109. 

1110 . 
mi. 
1112 . 

1113. 

1114. 

1115. 
111G. 

1117. 

1118. 

1119. 

1120 . 
1121 . 
1122 . 

1123. 

1124. 


010435B WRITEC6»4027) 

010440B 4027 FORMAT ( 1H ,34X, /STAGE ADJUST-/, 7X, /STAGE ADJUST-/) 

010440B WRITEC6, 4028) 

010443B 4028 FORMAT ( 1H » 34X, ZMENT)/, 15X*/MENT)Z) 

010443B WRITEC6, 405) XUC1), XUC1), XU(3) 

010451B 405 FORMAT C 1H , 5X, ZXU=Z, 3CF15.5, 5X) ) 

010451B WRITEC6, 40G) XWC1), XWC1) , XWC3) 

010457B 40G FORMAT ( 1H , 5X, ZXW=Z, 3CF15.5, 5X) ) 

010457B WRITECG, 40G0) XWWC 1 ) , XWWC 1 ) , XWWC3) 

0104G5B 40G0 FORMAT ( 1H , 5X, ZXWW=Z, 3(F15. 5, 5X) ) 

0104G5B WRITEC6, 40G1 ) XWT Cl), XWT C 1 ) » XWTC3) 

010473B 40G1 FORMAT C 1H , 5X, ZXWT=Z, 3CF15. 5, 5X) ) 

010473B WRITECG, 40G2) XAIRC 1 ) , XAIRC 1 ) , XAIRC3) 

010501B 40G2 FORMAT ( 1H , 5X, ZXAIR=Z, 3CF15.5, 5X) ) 

010501B WRITECG, 4063) XMETAMC 1 ) , XMETAMC 1 ) , XMETANC3) . 

010507B 40G3 FORMAT ( 1H , 5X, /XMETAM=/, 3CF15. 5, 5X) ) 

010507B WRITECG, 40G4) XGASC 1 ) , XGASC 1 ) , XGASC3) 

010515B 40G4 FORMAT C 1H , 5X, /XGAS/, 3CF15. 5, 5X) ) 

010515B WRITECG, 407) WMASSC1), WMASSC1) , WMASSC3) 

010523B 407 FORMAT C 1H , 5X, /WMASS=/, 3CF15.5, 5X) ) 

010523B WRITECG, 4070) WWMASSC 1 ) , WWMASSC 1 ) , WWMASSC3) 

010531B 4070 FORMAT C 1H , 5X, /WWMASS=/, 3CF15.5, 5X) ) . 

010531B WRITECG, 4071) WTMA3SC 1 ) , WTMASSC 1 ) , WTMASSC3) 

010537B 4071 FORMAT C 1H , 5X, /WTMASS=/, 3CF15. 5, 5X) ) 

010537B WRITECG, 4072) AMASS, AMASS, AMA3S 

010545B 4072 FORMAT C 1H , 5X, ZAMASS=Z, 3CF15.5, 5X) ) 

010545B WRITECG, 4073) CHMASS, CHMASS, CHMASS 

010553B 4073 FORMAT C 1H , 5X, ZCHMASS=Z, 3CF15.5, 5X) ) 

010553B WRITECG, 408) UMASSC1) , UMASSC1) , UMASSC3) 

0105G1B 408 FORMAT C 1H ,5X,/UMASS=/,3CF15.5,5X) ) 

0105G1B WRITECG, 4080) GMASSC 1 ) , GMASSC 1 ) , GMASSC3) 

0105G7B 4080 FORMAT C 1H , 5X, /GMASS=Z, 3CF15. 5, 5X) ) 

0105G7B WRITECG, 4081) TMASSC 1 ) , TMASSC 1 ) , TMASSC3) 

010575B 4081 FORMAT C 1H , 5X, ZTMAS3=Z, 3CF15.5, 5X) ) 

010575B WRITECG, 409) WSC1) , WSC1) , WSC3) 

010G03B 409 FORMAT C 1H ,5X,/WS=/,3CF15.5,5X) ) 

010G03B WRITECG, 410) RH0AC1) , RH0AC2) , RH0AC3) 

010G11B 410 FORMAT C 1H , 5X, ZRHOA=Z, 3CF15. 5, 5X) ) 

010611B WRITECG, 411) RH0MC1), RH0MC2) , RH0MC3) 

010G17B 411 FORMAT C 1H , 5X, ZRHOM=Z, 3CF15. 5, 5X) ) 

010G17B WRITECG, 412) RHOGC 1 ) , RH0GC2) , RH0GC3) 

010G25B 412 FORMAT ( 1H , 5X, ZRHOG=Z, 3CF15. 5, 5X) ) 

010G25B. WRITECG, 413) TGC 1 ) , TGC2) ,TGC3) 

010G33B 413 FORMAT C 1H , 5X, ZTG=Z, 3CF15.5, 5X) ) 

010G33B WRITECG, 414) TWC 1 ) , TWC2) , TWC3) 

010G41B 414 FORMAT C 1H , 5X, ZTW=Z, 3CF15.5, 5X) ) 

010G41B WRITECG, 4140) TWWC 1 ) , TWWC2) , TWWC3) 

010G47B 4140 FORMAT C 1H , 5X, ZTWW=Z, 3CF15. 5, 5X) ) 

010G47B WRITECG, 415) PC 1 ) , PC2) , PC3) 

010G55B 415 FORMAT C 1H , 5X, ZP=Z, 3CF15.5, 5X) ) 

010G55B WRITECG, 41G) TBC 1 ) , TBC2) , TBC3) 

010BG3B 41G FORMAT C 1H , 5X, ZTB=Z, 3CF15.5,5X) ) 

0106G3B WRITECG, 422) TDEWC 1 ) , TDEWC2) , TDEWC3) 

010671B 422 FORMAT C 1H , 5X, ZTDEW=Z, 3CF15.5, 5X) ) 

010671B 470 CONTIMUE 

010G71B IFC IDESIM. EG. 2. AMD. I STAGE. EQ. 1 ) WRITECG, 474) 

010700B 474 FORMAT C 1H1 , / *»»*»»««******* STAGE PERFORMANCE **«»*******«*/) 

010700B IFC IDESIN. EQ. 2. AND. I STAGE. EQ. 1 ) WRITECG, 471) 

010707B 471 FORMAT C 1H0, IX, ZFAIOZ, 2X, /STAGE/, 2X, ZPRATIOZ, lX.ZTRATIOZ, 

$3X, /ETA/, 5X, ZXUZ, 5X, ZXWZ, 5X, ZXWWZ, 4X, ZXWTZ, 4X, ZTGZ, 5X, ZTWZ) 
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1125. 

1126. 


1127. 

1128. 

1129. 

1130. 

1131. 

1132. 

1133. 

1134. 

1135. 

1136. 

1137. 

1138. 

1139. 

1140. 

1141. 

1142. 

1143. 

1144. 

1145. 

1146. 

1147. 

1148. 

1149. 

1150. 

1151. 

1152. 

1153. 

1154. 

1155. 

1156. 

1157. 

1158. 

1159. 

1160. 
1161. 
1162. 

1163. 

1164. 

1165. 

1166. 

1167. 

1168. 

1169. 

1170. 

1171. 

1172. 

1173. 

1174. 

1175. 


1176. 

1177. 

1178. 

1179. 


010707B 

010730B 


010730B 
010731B 
010735B 
010740B 
010743B 
010746B 
010746B 
010752B 
010755B 
010760B 
010763B 
010767B 
010772B 
010772B 
010773B 
010774B 
010776B 
01 1 0 0 OB 
011003B 
011005B 
011013B 
011016B 
011016B 
011017B 
011020B 
011020B 
011021B 
011026B 
011032B 
011033B 
011041B 
011042B 
011044B 
011045B 
011047B 
011051B 
011053B 
011055B 
011057B 
011062B 
011067B 
011074B 
011101B 
011104B 
011107B 
011110B 
011116B 
011124B 
0U132B 


011134B 

011141B 

011141B 

011146B 


IFCIDESIN.EQ.2) WRITECG.472) FAIO. ISTAGE. PRATIO, TRATIO 
SET Art ( ISTAGE ) . XUC 1 ) . XW ( 1 ) ♦ XWWC 1 ) » XUT C 1 ) » TGC 1 ) * TMC 1 ) 

472 FORMAT C 1H0. F6. 3* 2X» I2,3X,7F7.4,2X,F7.2,2X,F7.2) 

C REPEAT 

IFCNSF.EQ.O) GO TO 457 

IFC ISTAGE. EQ.NSF) T02FAN=TGC3) 

IFC ISTAGE. EQ.NSF) P02FAN=PC3) 

IFC ISTAGE. EQ.MSF) T01LPC=T02FAN 
IFC ISTAGE. EQ.MSF) P01LPC=P02FAN 
MSFLPC=NSF +MSLPC 

IFC ISTAGE . EQ . MSFLPC ) T02LPC=TGC 3 ) 

IFC ISTAGE. EQ.MSFLPC) P02LPC=P(3) 

IFC ISTAGE. EQ. MSFLPC) T01HPC=T02LPC 
IFC ISTAGE. EQ . MSFLPC ) PO 1HPC=P02LPC 
IFC ISTAGE. EQ. MS) T02HPC=TGC3) 

IFC ISTAGE. EQ. MS) P02HPC=P(3) 

457 COMTIMUE 

IFC ISTAGE. EQ. MS) GO TO 902 
GO TO 900 

902 OUALPR=PC3)/0P01 
OUALTR=TG(3)/OT01G 
GAMI1AU= ( GAMMAI +GAMMAO ) /2 . 0 
G4=CGAMMAU-1.0)/GAMMAU 
OUALEF= C 0UALPR'”-*G4- 1 . 0 ) / C OUALTR-1 . 0 ) 

ODELTG=TGC3)-0T01G 

ODELTU=0.0 

DELTWW=0 . 0 

DELMT=0.0 

DELMWT=0.0 

DELMG^O.O 

IFCXDIM. GT .0.0) ODELTW=TWC3)-OT01D 
IFC XDD I M . GT . 0 . 0 ) DELTWW=TWU C 3 ) -OTO 1 D 
DELMT = C MMASS-TLMO ) /TLMO 

I F C UTMO . GT . 0 . 0 ) DELMWT=C UITMASS C 3 ) -WTMO ) /WTMO 

DELMG= C GMASS C 3 ) -GMO ) /GMO 

IFCMSF.EO.O) GO TO 458 

PRFAN=P02FAN/P0 IF AM 

TRFAN=T02FAN/T01FAN 

PRLPC=P02LPC/F01LPC 

TRLPC=T02LPC/T01LPC 

PRHPC=P02HPC/P01HPC 

TRHPC=T02HPC/T01HPC 

PTREF=21 16. 80/SQRT C518.7) 

CMFAN=AMFAN*SQRT C TO 1FAM )/P0 1FAN»PTREF 
CMLPC=AMLPC*SQRT C TO 1 LPC ) /PO 1LPC»PTREF 
CMHPC=AMHPC*SGRT C TO 1 HPC ) /PO 1 HPC*PTREF 
CMF ANT =CMF AN» A AAR IT/ AA A I GU 
CMLPCT=CMLPC*AAAR1T/AAAIGU 
CMHPCT =CMHPC* AAAR 1 T /AAA I GU 
EFFAN=CPRFAN**G4-1 . 0 )/CTRFAN-l . 0 ) 

EFLPC= C PRLPC«*G4- 1 . 0 ) / C TRLPC- 1.0) 

EFHPC=CPRHPC**G4-1 . 0 )/CTRHPC-l . 0 ) 

458 CONTIMUE 

C OUTPUT COUERALL PERFORMAMCE ) 

IF C IDESIM. ME. 2) WRITEC6.421) 

421 FORMAT C 1H1 * £»«•«*»*»»»* OUERALL PERFORMANCE *********/) 
IFCIDESIM.EQ.2) WRITEC6.473) 

473 FORMAT C1H1.^*»»******* OUERALL PERFORMANCE ***»***«;*) 
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1180. 01114GB WRITEC6, 4220) FAIO 

1181. 011152B 4220 FORMAT ( 1HO, 1X» ^INITIAL FLOW COEFFICIENTS, F5. 3) 

1182. Oil 152B WRITECG, 423) CRPM.FNF 

1183. 011157B 423 FORMAT C 1H0, IX, ^CORRECTED SPEEDS, F7. 1, 5X, F5. 3, IX, 

S^FRACTION OF DEIGN CORRECTED SPEEDS) 

1184. 011157B WRITECG, 424)XDIN» XDDIN, XWTO, RHUMID, XCH4IN 

1 1B5. 011167B 424 FORMAT ( 1H0, IX, ^INITIAL WATER CONTENT (SMALL DR0PLET)S,F5.3,/, 

$2X, ^INITIAL WATER CONTENT (LARGE DR0PLET)S,F5.3, /, 

$2X, ^INITIAL WATER CONTENT ( TOTAL )=*, F5.3, /, 

$2X, ^INITIAL RELATIUE HUMIDITYS, F5. 1, IX, *PER CENT?:,/, 
S2XSINITIAL METHANE CONTENTS, F5. 3) 

1 185. 0111G7B WRITECG, 425) TOG 

1187. 011173B 425 FORMAT ( 1HO, IX, ^COMPRESSOR INLET TOTAL TEMPERATURES, F8. 2) 

1188. 0U173B WRITECG, 42G) PO 

1189. 011177B 42G FORMAT ( 1H0, IX, ^COMPRESSOR INLET TOTAL PRESSURES, F8. 2) 

1190. 011177B CCMASS=CNASS*AAAR1T/AAAIGU 

1191. 011201B C2MASS=CMASS2*AAAR1T/AAAIGU 

1192. 011202B WRITECG, 427) CCMASS 

1193. 011207B 427 FORMAT ( 1H0, IX, ^CORRECTED MASS FLOW RATE OF MIXTURES, F7. 3) 

1194. 011207B WRITECG, 428) C2MASS 

1195. 011213B 428 FORMAT ( 1H0, IX, ^CORRECTED MASS FLOW RATE OF GAS PHASE *,F7.3) 

119S. 011213B WRITECG. 429) OUALPR 

1197. 011217B 429 FORMAT ( 1H0, IX, POUERALL TOTAL PRESSURE RATIOS, F7. 4) 

1198. 011217B WRITECG, 430) OUALTR 

1199. 011223B 430 FORMATC 1HO, IX, POUERALL TOTAL TEMPERATURE RATIOS, FG.4) 

1200. 011223B WRITECG, 431) OUALEF 

1201. 011227B 431 FORMAT C 1HO, IX, POUERALL ADIABATIC EFFICIENCYS,FG.4) 

1202. 011227B IFCNSF.EQ.O) GO TO 459 

1203. 011230B WRITECG, 445) 

1204. 011233B 445 FORMATC 1H0, **»**«»*»«* PERFORMANCE OF FAN.LPC.HPC **********;0 

1205. 011233B WRITECG, 44G) 

1206. 01123GB 44G FORMATC 1H0, 7X, PGAS PHASE STAGNATION STAGNATION ADIABATIC?:) 

1207. 01123GB WRITECG, 447) 

1208. 011241B 447 FORMAT ( 1H0, 7X, ^CORRECTED PRESSURE TEMPERATURE EFFICIENCY?:) 

1209. 011241B WRITECG, 448) 

1210. 011244B 448 FORMATC 1H0, 7X, PMASS FLOW RATIO RATIO?:) 

1211. 011244B WRITECG, 442) CMFANT , PRFAN, TRFAN, EFFAN 

1212. 011253B WRITECG, 443) CMLPCT , PRLPC, TRLPC, EFLPC 

1213. 0112G2B WRITECG, 444) CMHPCT , PRHPC, TRHPC, EFHPC 

1214. 011271B 442 FORMATC1HO, 1X,PFANP,2X,4CF10.4,2X) ) 

1215. 011271B 443 FORMAT C 1H0, IX, PLPCP, 2X, 4CF10 . 4, 2X) ) 

1216. 011271B 444 FORMAT C 1H0, IX, PHPCP, 2X, 4CF10.4.2X)) 

1217. 01 127 IB 459 CONTINUE 

1218. 011271E GO TO 901 

1219. 011271B 998 STOP 

1220. 011273B END 

1. 000000B SUBROUTINE WICSPBCFAIO, I ST AGE, MMASS, ALFA1 , WKDONE, DAU, DELU. WMAS, N, 

SOMEGAl » 0MEGA2, 0MEGA3, 0MEGA4, 0MEGA5, OMEGAS, OMEGAT, 

SBETAl , BETA2, UZ, ALFA2, ALFA3, DELTG, DELTW, W1 , W2, U1 , U2, U3, AK1, AK2, 
$AK3) 

2. 000000B REAL M, MMASS 

3. 000000B COMMON JPERFM,RH0G(3),RERUP,RERL0W, RESUP, RESLOW 

PREB, RRTIPC20) , SRTIPC20 ) , AAAI , AAA2, AAA3, SAREAC20), SAREASC20) 
^»P(3),TG(3),XA,XUC3)» XCH4, XWC3) , XWWC3) , XWTC3) , TWO) , TWWC3) 

- , OMEGS C 20 ) , OMEGR ( 20 ) , GAPR ( 20 ) , GAPS ( 20 ) 

-.RRHUBC20) ,' RCC20) , RBLADEC20 ) , STAGER (20) 

-» SRHUBC20 ) , SCC20 ) , SBLADEC20 ) , STAGES (20 ) 

SIGUMRC20 ) ,' BET1SRC20) , BET2SRC20) , AINCSRC20) , ADEUSRC20) 
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-,SIGUMS(20) , BET1SSC20) , BET2SS(20) , AINCSS(20) , ADEUSS(20) 
UTIPG(20 ) » UTIP(20 ) , UTIPD(20 ) » UOU(20 ) * UMEAN(20 ) » UHUB(20) » U(20) » FAI 
-,AREA(20),AREAS(20),UU2(20),UTIP2(20),UMEAN2(20),UHUB2(20),IPRINT 
~,ICENT,IICENT,FMR1(20),FHA2(20),IDES1N,FAID 

NS, NSF > NSLFC, BYPASS j NS1, RT(20 ) > RM(20) > RH(20) > ST(20 ) » SM(20) , SH(20) 
DSMASS, AAREAC20 ) , AAREASC20 ) > PR12D(20) > PR13D(20 ) » ETARDC20 ) 

DR ( 20 ) , DS ( 20 ) , DEQR ( 20 ) , DEQS ( 20 ) , BLOCK ( 20 ) , BLOCKS ( 20 ) 

BET 1 MR (20 ) * BET2MR(20 ) » BET1MS(20) » BET2MS(20 ) * RADII (20) > RADI2C20) 
~,FAIRIN(20),FAIOUT(20),ETASG(20),PSID(20),TAUD(20),SITADR(20) 
-,SITADS(20),UOD(20),UUD(20) 


4. 

000000B 

DIMENSION RH0M(3) » ETAA(20 ) 

5. 

OOOOOOB 

AJ=778.26 

6. 

000030B 

PAI=3. 141592G 

7. 

000032B 

CPO=1.0 

8. 

000033B 

RH0U=62.3 

9. 

000035B 

GC=32. 174 

10. 

00003GB 

CALL OICPRP(XA» XU( 1 ) , XCH4, TG( 1 ) , RMIX, CPMIX, GAMMA, Gl, G2, G3) 

11. 

000041B 

GAMMA 1=GAMMA 

12. 

000041B 

RHOG ( 1 ) =P ( 1 ) /RMIX/TG ( 1 ) 

13. 

000044B 

BMA3S=MMASS 

14. 

00004GB 

AAA2=AREAS( ISTAGE) 

15. 

000050B 

AAA3=AREA( ISTAGE+1 ) 

1G. 

000051B 

I F ( NSF . NE . 0 . AND . I STAGE . EQ . NSF ) AAA3=AAA2 

17. 

00005GB 

I F ( NSF . NE . 0 . AND . I ST AGE . EQ . ( NSF+NSLPC ) ) A AA3=A AA2 

18. 

OOOOG3B 

IF ( 1ST AGE. EQ. NS) AAA3=AAA2 

19. 

0000GGB 

CALL WICMAC( ISTAGE, BMASS, TG( 1 ) , P( 1 ) , M, UZ, C, XOT( 1 ) , ALFAl , 
$RMIX» CPMIX, AAAI ) 

20. 

000073B 

ASPEED=C 

21. 

000073B 

ASPED1=ASPEED 

22. 

000074B 

RHOG( 1 )=( 1 . 0+G2-M *»2)*»G3*RH0G( 1 ) 

23. 

000103B 

RHOM ( 1 ) = 1 . 0/ ( ( 1 . 0-XUT ( 1 ) ) /RHOG ( 1 ) +XQT ( 1 ) /RHDW ) 

24. 

000 11 OB 

UZ1=UZ 

25. 

0001 1 IB 

FAI1=U21/UTIPG( ISTAGE) 

2G. 

000113B 

ALFA1R = ALFAl » PAI / 180.0 

27. 

00011GB 

U1 = UZ / COS ( ALFA1R ) 

23. 

000121B 

US1 = UZ * TAN ( ALFA1R ) 

29. 

000124B 

US1 = U( ISTAGE)- US1 

30. 

000127B 

T = WS1 / UZ 

31. 

000127B 

BETA1R = ATAN ( T) 

32. 

000132B 

BETA1 = BETA1R * 180.0 / PAI 

33. 

000134B 

TT = UZ «*2 + OS1 **2 

34. 

00013GB 

W1 = SORT ( TT ) 

35. 

000141B 

AMACH1 =01/ ASPEED 

3G. 

000142B 

AM AC 1 =U 1 /ASPEED 

37. 

000143B 

TS 1 =TG ( 1 ) / ( 1 . 0+G2»ANAC 1 **2 ) 

38. 

000147B 

PS1=(TG( 1 )/TSl )**(-Gl)*P( 1 ) 

39. 

00015GB 

PREL1=( 1. 0+G2*AMACHl«*2)**Gl*PSl 

40. 

0001G5B 

TREL1=(1.0+G2*AMACH1**2)*TS1 

41. 

000171B 

JJJ=1 

42. 

000173B 

2000 UZ2AS=UZ 

43. 

000174B 

CALL OICGSL ( SIGUMR ( ISTAGE ) , BET1 SR ( I STAGE ) , BET2SR ( 1ST 
SAGE) , AINCSR( ISTAGE) . ADEUSR( ISTAGE) , AMACH1 , BETA1 , 

$DEQR( ISTAGE) , DEQN, SITADR( ISTAGE) , 

SSITACN, BET2N, OMEGAN, FMR1 ( ISTAGE) , AK1, AK2, AK3, UZ1,UZ2AS, 
$U( ISTAGE) , RADII ( ISTAGE) , RADI2( ISTAGE) ) 

44. 

000217B 

IF ( IPRINT.E0.2) ORITE(S, 190 ) OMEGR( ISTAGE), SIGUMR( ISTAGE) , 
$BET1SR( ISTAGE) , BET2SR( ISTAGE) , AINCSR( ISTAGE) , ADEUSR( ISTAGE) , 
SAMACHl , BETA1, DEOR( ISTAGE) , DEQN, SITADR( ISTAGE) , SITACN, BET2N, OMEGAN 

45. 

000252B 

190 FORMAT (1H0, IX, 14(F7.3»2X) ) 

4G. 

000252B 

DEQRR=DEQN 
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47. 

000252B 

SITACR=SITACN 

43. 

000254B 

AINCIR=BETA1-EET1MRC ISTAGE) 

49. 

000257B 

ADEUIR=BET2N-EET2!iR( ISTAGE ) 

50. 

000261B 

IFCIPRINT.EQ.2) WRITECS.191) AINCIR, AINCSRC ISTAGE) , ADEUIR, 
$ADEUSRC ISTAGE) 

51. 

000275B 

191 FORMAT ( 1H0» IX* 4CF7.3» 2X) ) 

52. 

000275B 

OMEGA 1=0HEG AM 

53. 

000275B 

BETA2=BET2N 

54. 

000277B 

BETA2R=BETA2"PAI/180. 0 

55. 

000301B 

W2=UZ/C03CBETA2R) 

5S. 

000304B 

UG=CWl+W2)/2.0 

57. 

000307B 

OMEGAP=0. 0 

58. 

000310B 

IF(XWCl).GT.O.O) 

$CALL WICSDLCRCC ISTAGE) , SIGUMRC ISTAGE) , BETA1. BETA2, UG, RHOGC 1 ) , 
$WMAS> AAA 1 , UZ , GMEGAP ) 

59. 

000323B 

0MEGA2=0MEGAP 

GO. 

000323B 

OMEGA3=0 . 0 

61. 

000324B 

DELP3=0 . 0 

62. 

000325B 

BETA2R = BETA2 * PAI / 180.0 

63. 

000330B 

JJ=i 

64. 

000331B 

200 UZAS=UZ 

65. 

000332B 

W52 = UZ * TAN ( BETA2R ) 

GS. 

000335B 

U52 = UU2C ISTAGE) - WS2 

67. 

000340B 

IFCUS2.LT. 0.0) GO TO 999 

63. 

000342B 

TTT=US2/UZ 

69. 

000343B 

ALFA2R = ATAN ( TTT ) 

70. 

00034GB 

ALFA2 = ALFA2R * 180.0 / PAI 

71. 

000350B 

TTTT = UZ ** 2 + WS2 »» 2 

72. 

000352B 

LI2 = SORT ( TTTT ) 

73. 

000355B 

TTTTT = UZ ** 2 + US2 ** 2 

74. 

000357B 

U2 = SORT ( TTTTT ) 

75. 

0003G2B 

DELH=WKDONE* ( UU2 ( ISTAGE ) *US2-U( ISTAGE )*US1 ) /GC/A J 

76. 

000370B 

XG=1 . O-XWT ( 1 ) 

77. 

000372B 

CALL WICIRSC ISTAGE* RRTIPC ISTAGE) » XWC 1 ) * XG. RHOGC 1 )* BETA1. Wl* WW1* 
$WW2.WW) 

78. 

000401B 

AMIMPR=WW 

79. 

000401B 

IFCAMIMPR.GT.WI1AS) AMIMPR=WMAS 

80. 

000405B 

PREB=50. 0 

81. 

000405B. 

AMREBR=AMIMPR«PREB/100. 0 

82. 

000410B 

AMWAKR=AMIMPR* ( 1 . O-PREB/1 00 . 0 ) 

83. 

000412B 

AMNOIR=WMAS-AMIMPR 

84. 

000413B 

XWNOIR=AMNOIR/MMASS 

85. 

000414B 

XWREBR=AMREBR/t1MASS 

86. 

00041GB 

XWWAKR=AMWAKR/ / MMASS 

87. 

000417B 

XW1=0.0 

88. 

000420B- 

XW2=0 . 0 

89. 

000421B 

XW3=0. 0 

90, 

000422B 

IFCWMAS.GT. 0. 0) XW1=AMN0IR/WMAS 

91. 

00042GB 

IFCWMAS. GT. 0.0) XW2=AMWAKR/WMAS 

92. 

000431B 

IFCWMAS.GT. 0.0) XW3=AMREBR/WMAS 

93. 

000434B 

DELTG=DELH/CPMIX 

94. 

000435B 

DELTW1=DELH/CPW 

95. 

000436B, 

DELTW2=DELH/CPW 

95. 

000437B 

DELTW3=0. 0 

97. 

000440B 

DELTW=XW1“DELTW1+XW2*BELTW2+XW3*DELTW3 

98. 

000446B 

TWC2)=TWC 1 )+DELTW 

99. 

000450B' 

TGC2)=TGC 1 )+DELTG 

100. 

000452B 

TS2=TG C 2 ) C 2 . 0 *CPM I X * GC« A J ) 

101. 

000457B 

AG2= C GAMMA"'RMIX*TS2*GC ) **0 . 5 

102. 

0004G5B 

ASPEED=WICASDCXWT C 1 ) , RHOGC 1 ) , AG2) 
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103. 

000467B 

AMAC2=U2/ASPEED 

104. 

000470B 

AMACH2=W2/ASPEED 

105. 

000471B 

PP 1 =G AMMA---RM I X-- TREL 1 *GC 

10G. 

000475B 

PP2=CUU2( ISTAGE)/U( ISTAGE) ) **2-1.0 

107. 

000501B 

PP3=1 . 0+G2*U( ISTAGE)**2/PP1*PP2 

108. 

000505B 

PP=PP3**G1 

109. 

000510B 

PRREL=PP- ( OMEGA1+OMEGA2+OMEGA3 ) * ( 1 . 0-PS1/PREL1 ) 

110. 

000517B 

PR1 2= ( TG C 2 ) /TG C 1 ) ) **G1*PRREL/PP 

111. 

000525B 

PC2)=PR12*PC1) 

112. 

000527B 

PS2= ( 1 . 0+G2*AMAC2**2 ) ** C -G 1 ) *P ( 2 ) 

113. 

000537B 

RH0G2=PS2/RMIX/TS2 

114. 

000542B 

RH0GC2)=RH0G2 

115. 

000542B 

RH0M2=1 . 0/CXG/RHOG2+XWTC 1 VRHOkl) 

11G. 

000547B 

U2=BMASS/'RH0M2/AAA2 

117. 

000551B 

UZ2=UZ 

118. 

000551B 

EPS=1 . 0E-4 

119. 

000552B 

IFC JJ.EQ.2) GO TO 201 

120. 

000555B 

IFUJ.GT.2) GO TO 202 

121. 

000557B 

X1=UZAS 

122. 

0005G0B 

V1=UZ2 

123. 

0005S1B 

UZ=UZ2 

124. 

000562B 

JJ=JJ+1 

125. 

0005S4B 

GO TO 200 

125. 

0005G5B 

201 X2=UZAS 

127. 

0005GGB 

Y2=UZ2 

128. 

000570B 

UZ=WICNEWCX1,Y1,X2,Y2) 

129. 

000573B 

IFC IPRINT. EQ.2) URITECG, 203) JJ.UZ 

130. 

000803B 

203 FORMAT ( 1H , IX, 11, 2X, *UZ2=*, F10.5) 

131. 

O0OGO3B 

JJ=JJ+1 

132. 

000G04B 

IFCUZ.LT. 0.0. OR. UZ.GT.ASPEED) GO TO 999 

133. 

000G10B 

GO TO 200 

134. 

000G10B 

202 IFCABSC CUZAS-UZ2)/UZAS) .LT.EPS) GO TO 300 

135. 

000615B 

X1=X2 

13G. 

000G15B 

Y1=Y2 

137. 

00GS17B 

X2=UZAS 

138. 

000620B 

Y2=UZ2 

139. 

000G22B 

UZ=WICNEWCX1» Yl> X2> Y2) 

140. 

000G24B 

IF ( IPRINT. EQ.2) WRITECG,204) JJ,UZ 

141. 

000G34B 

204 FORMAT C 1H0, IX, 1 1 , 2X, ^UZ2=^» F10 . 5) 

142. 

000G34B 

JJ=JJ+1 

143. 

OOOG35B 

. IFCUZ.LT. 0.0. OR. UZ.GT.ASPEED) GO TO 999 

144. 

000G41B 

IFC JJ. EG. 20) GO TO 300 

145. 

000G42B 

GO TO 200 

14G. 

000G43B 

300 UZ2CL=UZ 

147. 

000G44B 

IFC JJJ.E0.2) GO TO 2010 

148. 

000G47B 

IFC JJJ.GT.2) GO TO 2020 

149. 

000G51B 

XX1=UZ2AS 

150. 

00GG52B 

YY1=UZ2CL 

151. 

000G53B 

JJJ=JJJ+1 

152. 

00CG55B 

GO TO 2000 

153. 

00065GB 

2010 XX2=UZ2AS 

154. 

000G57B 

YY2=UZ2CL 

155. 

000GG1B 

UZ=WI CNEU C XX 1 , YY1 , XX2 , YY2 ) 

15G. 

000GG4B 

IFC IPRINT. EQ.2) WRITECG, 2030) JJJ,UZ 

157. 

OOOG74B 

2030 FORMAT C 1H , IX, 12, *UZ22=^, F10 . 5) 

158. 

OOOG74B 

JJJ=JJJ+1 

159. 

000G75B 

GO TO 2000 

1G0. 

000G75B 

2020 IFCABSC CUZ2AS-UZ2CD/UZ2AS). LT.EPS) GO TO 3000 

151. 

000702B 

XX1=XX2 

1E2. 

000702B 

YY1=YY2 
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1G3. 

164. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 


178. 

179. 

180. 
181. 
182. 

183. 

184. 
185., 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 


194. 

195. 

196. 

197. 

198. 

199. 

200 . 
201 . 
202 . 

203. 

204. 

205. 

206. 

207. 

208. 

209. 

210 . 
211 . 
212 . 

213. 

214. 

215. 


000704B 

000705B 

000707B 

00C711B 

000721B 

000721B 

000722B 

000723E 

000724B 

000724B 

00072GB 

000735B 

000737B 

000740B 

000745B 


000765B 

000765B 

000767B 

000770B 

000772B 

000774B 

000777B 

001001B 

001015B 

001015B 

001015B 

001017B 

001021B 

001024B 

001027B 

001030B 


001043B 

001043B 

001044B 

001054B 

001063B 

001065B 

001066B 

001074B 

001102B 

001104B 

001104B 

00110GB 

001116B 

001121B 

001121B 

00112GB 

001130B 

001130B 

001132B 

001134B 

0Q1135B 

001137B 


XX2=U22A3 

YY2=U22CL 

U2=UICMEU ( XXI , YY1 , XX2, YY2 ) 

IF ( IPRIMT. EO. 2) WRITEC6, 2040) JJJ.U2 
2040 FORMAT ( 1H , IX, 12, PU222=^, F10. 5) 

JJJ=JJJ+1 

IFCJJJ.E0.20) 00 TO 3000 
GO TO 2000 

3000 U22=U22CL 

FA 1 2=U22^ UT I PG ( I ST AGE ) 

P ( 2 ) = ( 1 . 0+G2*AI1AC2»* 2 ) **G 1 *PS2 
JJJJ=1 

3001 U23AS=U2 

IF C ISTAGE. EQ . MS ) RADII ( ISTAGE+1 )=RADI2( ISTAGE) 

CALL W I CGSL ( S I GUMS (ISTAGE).BETISS(I STAGE ) , 

SBET2SS ( ISTAGE ) , AIMCSS ( ISTAGE ) , ADEUSS C ISTAGE) , AMAC2, ALFA2, 
$DEQS( ISTAGE) , DEON, SITADSl ISTAGE) , 

$SITACM, BET2M, OMEGAM, FMA2( ISTAGE) , AK1, AK2, AK3, 

$U22, U23A3, 0 . 0, RADI2 ( ISTAGE ) , RADI 1 ( ISTAGE+1 ) ) 

ASPED2=ABPEED 

DEQ3S=DEON 

SITACS=SJ.TACM 

DEQT=DEQRR+DEQSS 

SITACT=SITACR+SITAC3 

AIMCIS=ALFA2-EET1MS( ISTAGE) 

ADEUIS=BET2N-EET2MS( ISTAGE) 

IFCIPRIMT.EQ.2) URITE(6,302) AINCIS, AIMCSSC ISTAGE) , ADEUIS, 
$ADE'JSS ( I ST AGE ) 

302 FORMAT (1H0, 1X,4(F7.3,2X)) 

0MEGA4=0MEGAM 
ALFA3=BET2M 
ALFA3R=ALFA3*PAI/180 . 0 
U3=U2/COS(ALFA3R) 

UG= C U2+U3 ) /2 . 0 
OMEGAP=0. 0 
IF(XWCl).GT.O.O) 

SCALL UICSDL(SC( ISTAGE), SIGUMSC ISTAGE), ALFA2, ALFA3, UG, RH0GC2) 
$, UMAS, AAA2. U2, OMEGAP) 

0MEGA5=0f'iEGAP 
OMEGAG=0. 0 

PR23=1 . 0- ( 0MEGA4+0MEGA5+0MEGA6 ) *( 1 . 0-PS2/P ( 2 ) ) 

PR 1 3= ( TG ( 2 ) /TG ( 1 ) ) *«G1*F>RREL»PR23/'PP 
P(3)=PR13*P(1) 

TG(3)=TG(2) 

TS3=TG ( 3 ) -U3»*2/( 2 . 0*CPMIX*GC*A J ) 
AG3=(GAMHA»RMIX*TS3«GC)»«-0.5 
ASPEED=W ICASD ( XWT C 1 ) , RHOG (2) , AG3) 

ASPED3=ASPEED 

AMAC3=U3/ASPEED 

PS3= (1.0 +G2*AMAC3**2 ) ** ( -G1 ) *P ( 3 ) 

RH0G3=PS3/RMIX/TS3 
RHOG ( 3 ) =RH0G3 

RH0i13= 1 . 0 / ( XG/RH0G3+XWT ( 1 ) /RHOU ) 

U2=BMASS/RH0M3/AAA3 

U23CL=U2 

IF( JJJJ.EQ.2) GO TO 3010 

IFC JJJJ.GT.2) GO TO 3020 

XXX1=U23AS 

YYY1=U23CL 

JJJJ=JJJJ+1 
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216. 

001 MOB 


GO TO 3001 

217. 

001141B 

3010 

XXX2=UZ3AS 

218. 

001142E 


YYY2=UZ3CL 

219. 

001144B 


UZ=WICNEWCXXX1 , YYY1 , XXX2, YYY2) 

220. 

001147B 


IF ( IPRINT. EQ. 2) WRITEC6, 3030) JJJJ.UZ 

221. 

001157B 

3030 

FORMAT ( 1H , IX, I2,2XSUZ33S,F10.5) 

222. 

001157B 


JJJJ=JJJJ+1 

223. 

001160B 


GO TO 3001 

224. 

0011G0B 

3020 

IF ( ABS ( ( UZ3AS-UZ3CL ) /UZ3AS ) . LT . EPS ) GO TO 4000 

225. 

0011G5B 


XXX1=XXX2 

226. 

0011S5B 


YYY1=YYY2 

227. 

0011G7B 


XXX2=UZ3AS 

228. 

001170B 


YYY2=UZ3CL 

229. 

001172B 


UZ=WICNEW ( XXXI , YYY1 , XXX2, YYY2 ) 

230. 

001174B 


IF( IPRINT. EQ. 2) WRITECG, 3040) JJJJ.UZ 

231. 

001204B 

3040 

FORMAT ( 1H , IX, 12, *UZ33S, F10.5) 

232. 

001204B 


JJJJ=JJJJ+1 

233. 

001205B 


IF ( JJJJ.EQ.20) GO TO S99 

234. 

00120GB 


GO TO 3001 

235. 

001207B 

4000 

UZ3=UZ3CL 

236. 

001207B 


FAI3=UZ3/UTIPG( ISTAGE+1 ) 

237. 

001211B 


TWC3)=TWC2) 

238. 

001213B 


0MEGTR=0MEGA1+0MEGA2+0MEGA3 

239. 

001216B 


0MEGTS=0MEGA4+0MEGA5+0MEGA6 

240. 

001221B 


PRATI0=P(3)/P(1) 

241. 

001223B 


TRATI0=TG(3)/TG( 1 ) 

242. 

001225B 


CALL UICPRPCXA, XU(3) ,XCH4,TG(3), RMIX.CPMIX, GAMMA, G1.G2.G3) 

243. 

001230B 


GAMMA2=GAMMA 

244. 

001230B 


GAMMAU=CGAMMA1+GAMMA2V2.0 

245. 

001233B 


G4= ( G AMMAU- 1.0) /G AMMAU 

246. 

001235B 


ETAA ( ISTAGE ) = C PRATI0*»G4-1 . 0 ) / C TRATIO-1 . 0 ) 

247. 

001243B 


PSI=GC*AJ*CPMIX*ETAA(ISTAGE)*(TG(2)-TG(l))/'ajTIPGCISTAGE)**2) 

248. 

001254B 


IFCIDESIN.EQ.2) GO TO 999 

249. 

001257B 


WRITECG, 404) FAIO, ISTAGE 

250. 

0012G5B 

404 

FORMAT C 1H1 , IX, £****«***#***«**•***** *, IX, 



$*INITIAL FLOW COEFFICIENTS, IX, F5. 3, 1XSCSTAGES, 12. IX, 



$/)£, 2X, s*tt*»«*»*»**********S) 

251. 

0012G5B 


WRITECG, 401) PRATIO,TRATIO,ETAA( ISTAGE) 

252. 

001274B 

401 

FORMAT ( 1H0, 5X, ISTAGE TOTAL PRESSURE RATIOS, F12. 5, /, 



$6X> ISTAGE TOTAL TEMPERATURE RATION, F12. 5,/, 



$6X» ISTAGE ADIABATIC EFFICIENCY^, F12.5) 

253. 

001274B 


WRITECG, 402) FAI 1 , UZ1 , UTIPGC ISTAGE) 

254. 

001303B 

o 

ro 

FORMAT C 1H0, 5X» ISTAGE FLOW COEFFICIENTS, F5. 3,/, 



$6X, ^AXIAL UEL0CITYS,F7.2,/, 



$6X» ^ROTOR SPEEDS, F7. 2, /) 

255. 

001303B 


WRITECG, 405) 

256. 

001306B 

405 

FORMAT C 1H0, 24XS”-R0T0R INLET* *RDT0R OUTLET* *STATOR OUTLETS) 

257. 

001306B 


WRITEC6, 406) PC 1 ) , PC2) , PC3) 

258. 

001314B 

406 

FORMAT C 1H , 1XSTOTAL PRESSURES, 10X, 3CF10. 4, 5X) ) 

259. 

001314B 


WRITECG, 407) PS1,PS2,PS3 

260. 

001322B 

407 

FORMAT ( 1H , IX, ^STATIC PRESSURES, 9X, 3CF10 . 4, 5X) ) 

261. 

001322B 


WRITEC6, 408) TGC 1 ) , TGC2) , TGC3) 

262. 

001330B 

-D> 

o 

OD 

FORMAT ( 1H , 1XSTOTAL TEMFERATURE C GAS ) A 3X, 3 C FI 0 . 4, 5X) ) 

263. 

001330B 


WRITECG, 409) TS1,TS2,TS3 

264. 

001336B 

409 

FORMAT C 1H , 1XSSTATIC TEMPERATURE C GASS, 1X»3CF10.4»5X)) 

265. 

001336B 


WRITEC6.410) RHOGC 1 ) , RH0G2, RHOG3 

266. 

001344B 

410 

FORMAT ( 1H , IX, ASTATIC DEN3ITYCGASS, 5X, 3CF10. 4, 5X) ) 

267. 

001344B 


WRITECG, 411) RHOM C 1 ) , RH0M2 , RH0M3 

268. 

001352B 

411 

FORMAT C 1H. , 1XSSTATIC DENS ITYC MIXTURE)*, IX, 3CF10.4, 5X) ) 

269. 

001352B 


WRITEC6, 412) UZ1,UZ2,UZ3 
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270. 

271. 

272. 

273. 

274. 

275. 
27G. 

277. 

278. 

279. 

280. 
281. 
282. 

283. 

284. 

285. 
28B. 

287. 

288. 

289. 

290. 

291. 

292. 

293. 

294. 

295. 
298. 

297. 

298. 

299. 

300. 

301. 

302. 

303. 

304. 

305. 
308. 

307. 

308. 


1 . 


2 . 

3. 


001360B 
0013S0B 
0013GSB 
0013G6B 
001373B 
001373B 
001404B 
001404B 
00141 IB 
001411B 
00141GB 
00141GB 
001424B 
001424B 
001432B 
001432B 
001437B 
001437B 
001445B 
001445B 
001453B 
001453B 
001461B 
0014G1B 
0014GGB 
0014GGB 
001473B 
001473B 
001500B 
001500B 
001505B 
001505B 
001512B 
001512B 
001517B 
001517B 
001524B 
001524B 
00152GB 


412 FORMAT C 1H0, IX* FAXIAL UELOCITY*, 10X, 3CF10.4, 5X) ) 

WRITECG, 413) U1.U2.U3 

413 FORMAT C 1H , IX, ^ABSOLUTE UELOCITY*. 7X, 3CF10.4, 5X) ) 

WRITEC6, 414) W1.W2 

414 FORMAT (1H , IX, FRELATIUE UELOCITY*, 7X.2CF10. 4, 5X)) 

WRITECG, 415) UC ISTAGE) , UU2C ISTAGE) , U( ISTAGE+1 ) 

415 FORMAT ( 1H , IX, FBLADE SPEED*, 13X, 3CF10 . 4, 5X) ) 

WRITECG, 41G) US1,US2 

41G FORMAT C 1H , 1X.FTANG. COMP. OF ABS. UEL.*,2CF10.4,5X) ) 

WRITECG, 417) US1.US2 

417 FORMAT C 1H , 1X.FTANG. COMP. OF REL. UEL.*,2CF10.4,5X) ) 

WRITECG, 418) ASPED1 , ASPED2, ASPED3 

418 FORMAT C 1H , IX, FACOUSTIC SPEEDS, 10X, 3CF10. 4, 5X) ) 

WRITECG, 419) AMAC1 , AMAC2, AMAC3 

419 FORMAT C 1H , IX, ^ABSOLUTE MACH NUMBERS, 4X, 3CF10. 4, 5X) ) 

WRITECG, 420) AMACH1 , AMACK2 

420 FORMAT ( 1H , IX, FRELATIUE MACH NUMBER*. 4X, 2CF10 .4, 5X) ) 

WRITECG, 421 ) FAI1 , FAI2, FAI3 

421 FORMAT C 1H0, IX, FFLOW COEFFICIENT*. 8X.3CF10. 4, 5X) ) 

WRITECG, 422) AAAI, AAA2, AAA3 

422 FORMAT C 1H , IX, FFLOW AREA*. 15X, 3CF10.4, 5X) ) 

WRITECG, 423) ALFA1 , ALFA2, ALFA3 

423 FORMAT C1H0, IX, ^ABSOLUTE FLOW ANGLE*, 5X, 3CF10. 4, 5X) ) 

WRITECG, 424) BETA1, BETA2 

424 FORilAT ( 1H , IX, FRELATIUE FLOW ANGLE*, 5X, 3CF10.4, 5X) ) 

WRITECG, 425) AINCIR, AINCIS 

425 FORMAT C 1H , IX, FINCIEENCEF, 1GX, 2CF10.4, 5X) ) 

WRITECG, 42G) ADEUIR, ADEUIS 

42G FORMAT C 1H , IX, FDEUIATION*, 31X, 2CF10.4, 5X) ) 

WRITEC6, 430 ) DEQRR, DEQSS 

430 FORMAT C 1H , IX, FDIFFUSION RATIO*,25X,2CF10.4,5X) ) 

WRITECG, 427) SITACR. SITACS . 

427 FORMAT C 1H , IX, FMOMENTUM THICKNESS*, 21X, 2CF10. 4, 5X) ) 

WRITECG, 428) OMEGA1 , 0MEGA4 

423 FORMAT C 1H , IX, FOMEGA CGAS)*,31X,2CF10.5,5X) ) 

WRITECG, 429) OMEGTR, OMEGTS 

429 FORMAT C 1H , IX, FOMEGA C TOTAL)*, 30X, 2CF10.5, 5X) ) 

999 RETURN 
END 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


0 0 0 0 0 OB SUBROUT I NE U I CSPC C FA 1 0 , 1 ST AGE , MMASS , ALF A 1 , WKDONE , D AU , DELU , WMA5 , 

$WWMAS» N, 

$0MEGA1 , 0MEGA2, 0MEGA3, 0MEGA4, 0MEGA5, OMEGAG, OMEGAT, 

SBETAl , BETA2, U2, ALFA2, ALFA3, DELTG, DELTW, Wl, W2. Ul, U2, U3, REAUE, 
$DELUU2, DELUL2, AK 1 , A!<2, AK3 ) 

OOOOOOB REAL M, MMASS 

000000B COMMON JPERFM,RH0GC3),RERUP,RERL0W, RESUP, RESLOW 

PREB, RRTIPC20 ) .SRTIPC20) » AAAI , AAA2, AAA3, SAREAC20) , SAREASC20) 

PC3) » TGC3) > XA> XUC3) » XCH4, XWC3) , XWWC3) , XWT C3) » TWC3) , TWWC3) 

OMEGS C 20 ) , OMEGR C 20 ) , GAPR C 20 ) , GAPS C 20 ) 

RRHUBC20 ) , RCC20 ) , RBLADEC20) , STAGER C 20) 

-.SRHUBC20) , SCC20 ) , SBLADEC20) , STAGESC20) 

-.SIGUMRC20) , BET1SRC20 ) , EET2SRC20) , AINCSRC20) , ADEUSRC20) 
-.SIGUMSC20) , EET1SSC20) , BET2SSC20) , AINCSSC20) , ADEUSSC20 ) 
-',UTIPGC20),UTIPC20),UTIPDC20)» UOUC20) , UMEANC20) , UHU3C20) , UC20) ,FAI 
- , AREA C 20 ) , AREAS C 20 ) , UU2 C 20 ) , UT IP2 C 20 ) , UMEAN2 C 20 ) , UHUB2 ( 20 ) , IPR INT 
ICENT, IICENT,FMR1C20),FMA2C20), IDESIN.FAID 

NS, NSF , NSLPC, BYPASS, NSl, RTC20 ) , RMC20 ) , RHC20) , STC20) , SMC20) , SHC20) 
DSMASS, AAREAC20) , AAREASC20) , PR12DC20 ) , PR13DC20) , ETARDC20) 
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~,DR(20)»DS(20), DEQR (20 ) , DEQS(20 ) , BLOCK ( 20 ) » BLOCKS ( 20 ) 

BET1 MR ( 20 ) , BET2MR ( 20 ) » BET IMS ( 20 ) » BET2MS ( 20 ) ♦ RADI 1(20), RADI2C 20 ) 
~»FAIRIN(20) » FAIOUT (20 ) * ETASG(20) » PSID(20 ) » TAUD(20 ) , SITADR(20) 

~» SITADS ( 20 ) * WL'D ( 20 ) > UUD ( 20 ) 


4. 

OOOOOOB 

DIMENSION RH0M(3) » ETAA(20 ) 

5. 

000000B 

CPW=1.0 

6. 

000030B 

RH0U=62.3 

7. 

000032B 

GC=32. 174 

8. 

000033B 

AJ=778. 2G 

8. 

000035B 

PAI=3. 141592G 

10. 

00003GB 

CALL WICPRP(XA, XU( 1 ), XCH4, TG( 1 ) , RMIX. CPMIX, GAMMA, G1 ,G2, G3) 

11. 

000041B 

GAMMA 1=GAMMA 

12. 

000041B 

RHOG ( 1 ) =P ( 1 ) /RM IX/TG ( 1 ) 

13. 

000044B 

BMAS5=MMASS-WMAS-WUI1AS 

14. 

000050B 

AAA2=AREAS( I STAGE) 

15. 

000051B 

AAA3=AREA( ISTAGE+1 ) 

1G. 

000053B 

IF ( NSF . NE . 0 . AMD .1ST AGE . EC . NSF ) AAA3=AAA2 

17. 

000057B 

IF (NSF.NE.O.AND. I STAGE. EO. (NSF+NSLPC) ) AAA3=AAA2 

18. 

0000G4B 

IF ( ISTAGE.EQ.NS) AAA3=AAA2 

19. 

0000G7B 

CALL WICMAC ( ISTAGE, BMASS , TG ( 1 ) , P ( 1) , M, UZ, C, XWT ( 1 ) , ALFA1 , 
$RMIX» CPMIX, AAAI ) 

20. 

000074B 

ASPEED=C 

21. 

000074B 

ASPED1=ASPEED 

22. 

000075B 

RHOG ( 1 ) = ( 1 . 0+G2*M **2 ) **G3*RH0G ( 1 ) 

23. 

000104B 

RHOM ( 1 ) = 1 . 0/ ( ( 1 . 0-XWT ( 1 ) ) /RHOG ( 1 )+XklT ( 1 )/RHOI4) 

24. 

0001 1 IB 

UZ1=U2 

25. 

000112B 

UZZ=UZ 

2S. 

000113B 

FAI1=UZ1/UTIPG( ISTAGE) 

27. 

000115B 

ALFA1R = ALFA1 * PAI / 180.0 

28. 

000120B 

U1 = UZ / CCS ( ALFA1R ) 

29. 

000123B 

US1 = UZ « TAN ( ALFA1R ) 

30. 

00012GB 

WS1 = U( ISTAGE)- US1 

31. 

000131B 

T = US1 / UZ 

32. 

000131B 

BETA1R = ATAN ( T) 

33. 

000134B 

BETA1 = BETA1R * 180.0 / PAI 

34. 

00013GB 

TT = UZ ««2 + U51 **2 

35. 

000140B 

HI = SORT ( TT ) 

38. 

0C0143B 

AMACH1 = HI / ASPEE.D 

37. 

000144B 

AMAC1=U1/ASPEED 

38. 

000145B 

TS1=TG( 1 )/( 1 . 0+G2*AMACl**2) 

39. 

000151B 

PS1=(TG( 1 )/TSl )**(-Gl )*P( 1 ) 

40. 

0001G0B 

PREL1=(1.0+G2*AMACH1**2)**G1*PS1 

41. 

000167B 

TREL1=(1.0+G2*AMACH1**2)*TS1 

42. 

000173B 

TG(2)=TG( 1 ) 

43. 

000175B 

P(2)=P( 1 ) 

44. 

00017GB 

ALFA2=BET1SS( ISTAGE) 

45. 

000200B 

JJJ=1 

4G. 

000202B 

2000 UZ2AS=UZ 

47. 

000203B 

CALL WICGSLCSIGUMRC ISTAGE), BET1SR( ISTAGE), BET2SRC 
SISTAGE) , AINCSR( ISTAGE) , ABEUSR( ISTAGE) , AMACH1, BETA1, 
$DE0R( ISTAGE) , DEON, SITADRC ISTAGE) , 

$SITACN, BET2N, OMEGAN, FMR1 ( ISTAGE) , AK1, AK2, AK3, UZ1, 
$UZ2AS, U( ISTAGE) , RADII ( ISTAGE) , RADI2C ISTAGE) ) 

48. 

00022GB 

DEQRR=DEQN 

49. 

00022GB 

SITACR=SITACN 

50. 

000230B 

0MEGA7=0MEGAN 

51. 

000231B 

BETA2=BET2N 

52. 

000233B 

BETA1R=BETA1*PAI/180.0 

53. 

00023GB 

BETA2R=BETA2*FAI/180.0 

54. 

000237B 

BETAUE= ( BETA 1 R+BETA2R ) /2 . 0 
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55. 

000241B 

TANGT=UICTAN C EETA1R) -WICTAN ( BETA2R ) 


55. 

000247B 

CSAU=COS(EETAUE) 


5?. 

000251B 

CS1=C0S(BETA1R) 


50. 

000253B 

CL=2. O/SIGUMRC ISTAGE)«TANGT*CSAU 


53. 

000256B 

CDS=0.018*(CL**2) 


GO. 

000260B 

OMEGSE=CDS*SIGUMR C I STAGE ) * C CS 1 **2 ) / ( CSAU**3 ) 


61. 

000265B 

H=RRTIP( ISTAGE )-RRHUB ( I5TAGE ) 


62. 

000270B 

SHR=RC C ISTAGE ) /H/SIGUMR ( ISTAGE ) 


G3. 

000271B 

CDA=0 . 020-SHR 


64. 

000273B 

OMEGAN=CDA*S I GUMR C ISTAGE ) * ( CS1 »*2 ) / ( CSAU**3 ) 


65. 

000300B 

IF ( IPRINT.EQ.2). URITE(6, 2001 ) 0MEGA1 » OMEGSE, OMEGAN, 0MEGA7, 

CDS, CDA 

66. 

000315B 

2001 FORMAT ( 1H0* 6F10. 6) 


67. 

000315B 

0MEA1=0MEGAN 


68. 

000315B 

AINCIR=BETA1-EET1MR< ISTAGE) 


63. 

000320B 

ADEUIR=BET2N-EET2MR( ISTAGE) 


70. 

000323B 

BETA2R=BETA2*PAI/180.0 


71. 

000325B 

W2=UZ/C0S ( BET A2R ) 


72. 

000330B 

UG=(Ull+l-J2)/2. 0 


73. 

000333B" 

CALL WICRSLCSIGUMRC ISTAGE) , EETA1. BETA2, RCC ISTAGE) , DAU, CDR, 

OMEGAR) 

74. 

000343B 

OMEGA 1=0MEGAR 


75. 

000343B 

DELP 1 =OMEGA 1*0. 5*RH0G ( 1 ) /GC* ( k! 1 **2 ) 


76. 

000351B 

IF C IPRIMT.EQ.2) URITEC6, 2002) 0MEGA1, DELP1 


77. 

000351B 

2002 FORMAT ( 1IH , 1X,E0MEGA1=*,2F10.5) 


78. 

0003G1B 

XG=1 . 0-XWT ( 1 ) 


79. 

0003G2B 

CALL WICIRLC ISTAGE, RRTIP(ISTAGE) , XWW( 1 ) , XG, RHOGC 1 ) , BETA1 , HI , Ukll , WW 
$2, Wkl) 

80. 

000371B 

BMIMPR=WU 


81. 

000371B 

IF ( BMIMPR . GT . L'WMAS ) BMIMPR=WWMAS 


82. 

000375B 

BMREBR=BMIMPR«PREB/100.0 


83. 

000377B 

BMWAKR=BMIMPR* ( 1 . O-PREB/1 00 . 0 ) 


84. 

000401B 

BMMOIR=UIUMAS~EMIMPR 


85. 

000402B 

XWWNOR=BNNOIR/Mi1ASS 


86. 

000403B 

XWURER=BMREBR/MMASS 


87. 

000405B 

XWUWAR=BMWAKR/MMASS 


88. 

00040GB 

IF(IPRIMT.EQ.2) WRITEC6, 6090) BMIMPR, BMREBR. BMUAKR, BMNOIR, 
$XWHRER> XWWWAR 

XWWSOR* 

83. 

000424B 

6090 FORMAT ( 1H , 7(F12.5, IX) ) 


30. 

000424B 

RST1=RADI 1 ( ISTAGE ) *»2-AAAl*144 . 0/2. 0/PAI 


91. 

000430B 

RST1=SQRT (RST1 ) 


92. 

000433B 

RST2=2 . 0^-RADI 1 ( ISTAGE ) *«2-RSTl**2 


93. 

000435B 

RST2=S0RT C RST2 ) 


94. 

000440B 

DELR=(RST2-RST1 )/12. 0 


95. 

000442B 

FMA5SR=BMWAKR/DELR 


96. 

000443B 

CALL WICFMLCUl, W2.FMASSR, RHOGC 1),RC( ISTAGE), SIGUMRC ISTAGE) 
$BETA2, CDF , OMEGAF ) 

, BETA1, 

97. 

000455B 

0MEGA2=0MEGAF 


98. 

000455B 

DELP2=OMEGA2-»0 . 5*RH0G ( 1 ) /GC* C HI **2 ) 


99. 

0004G3B 

IF( IPRINT. EQ. 2) WRITEC 6, 6091 ) 0MEGA2, DELP2 


100. 

000473B 

6091 FORMAT ( 1H , 1X,E0MEGA2=E,2F10.5) 


101. 

000473B 

U2=0 . 0 


102. 

000473B 

U3=0. 0 


103. 

000473B 

ALFA=0 . 0 


104. 

000474B 

ALFA3=0 . 0 


105. 

000475B 

CALL WICSTLC ISTAGE, 1 , DAU, HI, W2, DELU, U2, U3, UWMAS, U2, M, BETA1 
SALFA2, ALFA3, DELUU2, DELUL2, OMEGRU, OMEGRL, OMEGSU, OMEGSL, 
SBRAGRU, DRAGRL, DRAGSU, BRAGSL, REAUE) 

, BETA2, 

106. 

000520B 

0MEGA3=0MEGRU+0I1EGRL 


107. 

000521B 

DELP3=0NEGA3*0 . 5*RH0G ( 1 ) /GC* C U 1 **2 ) 


108. 

00052GB 

IFCIPRINT.EQ.2) WRITE(6,6092) 0MEGA3, DELP3 


109. 

000536B 

6092 FORMAT (1H , 1X,E0MEGA3=^,2F10.5) 



148 



110. 

000536B 

REAUE1=REAUE 

111. 

000536B 

BETA2R = BETA2 * PAI / 180.0 

112. 

000541B 

JJ=1 

113. 

000543B 

200 UZAS=UZ 

114. 

000544B 

US2 = UZ * TAN ( BETA2R ) 

115. 

000547B 

US2 = UU2( ISTAGE) - US2 

116. 

000552B 

TTT=US2/UZ 

117. 

000552B 

ALFA2R = ATAN ( TTT ) 

118. 

000555B 

ALFA2 = ALFA2R * 180.0 / PAI 

119. 

000557B 

TTTT = UZ ** 2 + US2 ** 2 

120. 

000561B 

U2 = SORT ( TTTT ) 

121. 

000564B 

TTTTT = UZ ** 2 + US2 ** 2 

122. 

000566B 

U2 = SORT ( TTTTT ) 

123. 

000571B 

DELH=WKDONE» ( UU2 ( I ST AGE ) »US2-U ( I ST AGE ) *US 1 ) /GC/A J 

124. 

000577B 

CALL WICIRSC ISTAGE, RRTIPC ISTAGE) » XU( 1 ) , XG, RHOG ( 1 ) , BETA1 
$UW2,WU) 

125. 

000606B 

AMIMPR=UIU 

126. 

000606B 

IF(AMIMPR.GT.UMAS) AMIMPR=WNAS 

127. 

000612B 

PREB=50 . 0 

128. 

000612B 

AMREBR=ANIMPR*PREB/100.0 

129. 

000615B 

AMUAKR=AMIMPR*( 1 . 0-PREB/100. 0 ) 

130. 

000617B 

AMNOIR=WMAS-AMII1PR 

131. 

000620B 

XU1=0.0 

132. 

000621B 

XU2=0 . 0 

133. 

000621B 

XU3=0 . 0 

134. 

000622B 

IFCUMAS.GT.O.O) XU1=AMN0IR/'UMAS 

135. 

000626B 

IF (UMAS. GT. 0.0) XU2=ANUAKR/RMAS 

136. 

000631B 

IF ( UNAS. GT. 0.0) XU3=ANREER/UMAS 

137. 

000634B 

DELTG=DELH/CPNIX 

138. 

000635B 

DELTW1=DELH/CPU 

139. 

000636B 

DELTW2=DELH/CPU 

140. 

000S37B 

DELTU3=0.0 

141. 

000640B 

DELTW=Xm*-DELTm+XW2’“-DELTU2+XW3*DELTW3 

142. 

000646B 

DETUW1=0 . 0 

143. 

000647B 

DETUU2=0 . 0 

144. 

000647B 

DETUU3=0. 0 

145. 

000650B 

DELTUW=0. 0 

146. 

000650B 

TU ( 2 ) =TW ( 1 ) +DELTU 

147. 

000652B 

TUU ( 2 ) =TWU ( 1 ) +DELTUU 

148. 

000654B 

TG(2)=TG( 1 )+DELTG 

149. 

000656B 

TS2=TG C 2 ) -U2**2/ ( 2 . 0*CPMIX*GC*AJ ) 

150. 

000664B 

AG2= ( GAMMA«RMIX«TS2»GC)**0 . 5 

151. 

000672B 

ASPEED=WICASD(XUT(l),RHOG(l),AG2) 

152. 

000674B 

ASPED2=ASPEED 

153. 

000674B 

ANAC2=U2/ASPEED 

154. 

000676B 

ANACH2=U2^ASPEED 

155. 

000677B 

PP 1 =GAMMA«RMI X*TREL 1 *GC 

156. 

000703B 

PP2=(UU2( ISTAGEVUC ISTAGE) )*»2-l . 0 

157. 

000707B 

PP3=1 . 0+G2 5; -U( ISTAGE)**2/FP1*PF2 

158. 

000713B 

PP=PP3**G1 

159. 

000716B 

PRREL=PP- C 0MEGA7+0MEGA1 +0NEGA2+0MEGA3 ) * ( 1 . 0-PSl/PREL 1 ) 

160. 

000726B 

PR12=(TG(2)/TG( 1) )**G1*PRREL/'PP 

161. 

000734B 

ETAR=(PR12**(1.0/G1)-1.0)/(TG(2)/TG(1)-1.0) 

162. 

000745B 

PC2)=PR 12-PCI ) 

163. 

000747B 

PS2= ( 1 . 0+G2*AKAC2**2 ) ** ( -G 1 ) *P ( 2 ) 

164. 

000760B 

RH0G2=PS2/RNIX/TS2 

165. 

000763B 

RHOG ( 2 ) =RH0G2 

166. 

000763B 

RH0M2=1 . 0/CXG/RH0G2+XWT ( 1 VRHOU) 

167. 

000770B 

UZ=EI1ASS/RH0G2/AAA2 

168. 

000772B 

UZ2=UZ 
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169. 

000772B 


EPS=1 . OE-4 

1 70. 

000773B 


IF( JJ.EQ.2) GO TO 201 

171. 

000776B 


IFCJJ.GT.2) GO TO 202 

172. 

001000B 


X1=UZAS 

173. 

001001B 


Y1=UZ2 

174. 

001002B 


UZ=UZ2 

175. 

001003B 


JJ=JJ+1 

176. 

001005B 


IFCUZ.LT. 0.0. OR. UZ.GT.ASPEED) GO TO 999 

177. 

001011B 


GO TO 200 

178. 

001012B 

201 

X2=UZAS 

179. 

001012B 


Y2=UZ2 

180. 

001014B 


UZ=WICNEWCX1,Y1,X2,Y2) 

181. 

001017B 


IF C IPRINT . EQ.2) URITEC6.203) JJ.UZ 

182. 

001027B 

203 

FORMAT C 1H , IX, I1,2X,*UZ2=AF10.5) 

183. 

001027B 


JJ=JJ+1 

184. 

001030B 


IFCUZ.LT. 0.0. OR. U2.GT.ASPEED) GD TO 999 

185. 

001034B 


GO TO 200 

186. 

001034B 

202 

IFC ABSC CUZA5-UZ2)/UZAS) .LT.EPS) GO TO 300 

187. 

001041B 


X1=X2 

188. 

001041B 


Y1=Y2 

189. 

001043B 


X2=UZAS 

190. 

001044B 


Y2=UZ2 

191. 

001046B 


UZ=UICNEWCX1» Y1,X2» Y2) 

192. 

001050B 


IF C IPRINT. EQ.2) WRITECG.204) JJ.UZ 

193. 

001060B 

204 

FORMAT C 1H0, IX, 1 1, 2X, *UZ2=*, F10 .5) 

194. 

001060B 


JJ=JJ+1 

195. 

0010S1E 


IFCUZ.LT. 0.0. OR. UZ.GT.ASPEED) GO TO 999 

198. 

001065B 


IFC JJ.E0.20) GO TO 999 

197. 

00106GB 


GO TO 200 

198. 

001067B 

300 

UZ2CL=UZ 

199. 

001070B 


IF C JJJ.EQ.2) GO TO 2010 

200. 

001073B 


IFC JJJ.GT.2) GO TO 2020 

201. 

001075B 


XX1=UZ2A5 

202. 

001076B 


YY1=UZ2CL 

203. 

001077B 


JJJ=JJJ+1 

204. 

001101B 


GO TO 2000 

205. 

001102B 

2010 

XX2=UZ2A9 

206. 

001103B 


YY2=UZ2CL 

207. 

001105B 


UZ-UICNEUCXX1, YY1, XX2, YY2) 

208. 

001110B 


IF C IPRINT. EO. 2) URITEC6, 2030) JJJ.UZ 

209. 

001120B 

2030 

FORMAT C 1H , IX, I2,^UZ22=^,F10.5) 

210. 

001120B 


JJJ=JJJ+1 

211. 

001121B 


GO TO 2000 

212. 

001121B 

2020 

IF CAB9CCUZ2AS-UZ2CD/UZ2AS). LT.EPS) GO TO 3000 

213. 

001126B 


XX1=XX2 

214. 

00U26B 


YY1=YY2 

215. 

001130B 


XX2=UZ2AS 

216. 

001131B 


YY2=UZ2CL 

217. 

001133B; 


UZ=NICMEWCXX1 , YY1 , XX2, YY2 ) 

218. 

001135B 


IF C IPRIMT.E0.2 ) WRITEC6, 2040) JJJ.UZ 

219. 

001145B 

2040 

FORMAT C 1H , IX, 12, *UZ22=^, F10.5) 

220. 

001145B 


JJJ=JJJ+1 

221. 

001146B 


IFC JJJ.EQ.20) GO TO 3000 

222. 

001147B' 


GO TO 2000 

223. 

001150B 

3000 

UZ2=UZ2CL 

224. 

001150B 


FAI2=UZ2/UTIPGC ISTAGE) 

225. 

001152B. 


P C 2 ) = C 1 . 0+G2*AMAC2**2 ) »*G 1 *PS2 

226. 

0011G1B 


JJJJ=1 

227. 

001163B 

3001 

UZ3AS=UZ 

223. 

001164B 


IFC ISTAGE. EQ. MS) RADII C ISTAGE+1 )=RADI2C ISTAGE) 
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001171B 


CALL WICGSLCSIGUMSC ISTAGE) » BET1SSC ISTAGE) * BET2SS 
$( ISTAGE) , AINCSSC ISTAGE) , ADEUSSC ISTAGE) , A(1AC2, ALFA2, 

$DEQS( ISTAGE) , DEQN, SITADSC ISTAGE) , 

SSITACN, BET2M, OMEGAM, FMA2C ISTAGE) , AK1 . AK2, AK3, U22, 

SUZ3AS, 0. 0, RADI2C ISTAGE) , RADIK ISTAGE+1 ) ) 

230. 00121 IB DEOSS=DEON 

231. 00121 IB SITACS=SITACN 

232. 001213B DEQT =DEQRR+DEQSS 

233. 001215B SITACT=SITACR+SITACS 

234. 001217B 0MEGA8=0MEGAN 

235. 001220B ALFA3=EET2N 

23S. 001221B ALFA1R=ALFA2*PAI/180. 0 

237. 001224B ALFA2R=ALFA3”PAI/'180.0 

238. 00122GB ALFAAU=( ALFA 1R+ALFA2R) ''2.0 

23S. 001230B TAMGT=WICTAN( ALFA1R )-WICTAN(ALFA2R) 

240. 00123GB CSAU=COS ( ALFAAU ) 

241. 001240B CS1=C0S( ALFA1R) 

242. 001242B CL=2. O'SIGUMSC ISTAGE)«TANGT*CSAU 

243. 001245B CDS=0. 018»(CL**2) 

244. 001247B OMEGSE=CDS*SIGUMS( ISTAGE)*(CS1**2)/(CSAU**3) 

245. 001254B H=SRTIP( ISTAGE)-SRHUB( ISTAGE) 

24G. 001257B SHR=SC( ISTAGE)/H/SIGUMR( ISTAGE) 

247. 001261B CDA=0. 020»SHR 

248. 0012G3B OMEGAN=CDA*SIGUMS( ISTAGE)*(CS1**2)/(CSAU**3) 

249. 001270B IF ( IPRIMT.EQ.2) WRITECG, 3002) 

$0MEGA4, OMEGSE, OMEGAN* 0MEGA8, CDS, CDA 

250. 001305B 3002 FORMATCIHO.GFIO.5) 

251. 001305B 0MES2=0MEGSE 

252. 001305B 0MEA2=0MEGAN 

253. 001307B AIMCIS=ALFA2~EET1MS( ISTAGE) 

254. 001312B ADEUIS=BET2M-EET2MS( ISTAGE) 

255. 001314B ALFA3R=ALFA3 S FAI'180. 0 

25G. 001317B U3=UZ'C0S ( ALFA3R ) 

257. 001321B CALL W I CRSL ( S I GUMS ( I STAGE ) , ALF A2 , ALFA3 , SC ( 1ST AGE ) » DAU, CDR , OMEGAR ) 

258. 001332B 0MEGA4=0MEGAR 

259. 001332B DELP4=0MEGA4*O.5*RH0G(2)/GC*(U2**2) 

2G0 . 001340B IF ( IPRINT.EQ.2) WRITECG, 3003) 0MEGA4, DELP4 

2G1 . 001350B 3003 FORMAT (1H , IX, *0MEGA4=*, 2F1 0.5) 

2G2. 001350B CALL WICISL(ISTAGE,SRTIPCISTAGE),XWW(2),XG,RH0G(2). ALFA2, U2, kIWl 

$,WW2,WW) 

2G3. 00135GB BMIMPS=WW 

2G4. 00135GB IFCBMIMPS.GT.WWMAS) BMIMPS=WWMAS 

2G5. 001362B BMREBS=BMIMPS*PREB/100. 0 

2GG. 0013G4B BMWAKS=BMINPS*(1.0-PREB'100.0) 

2G7. 0013GGB IF ( IPRINT.EQ.2) WRITECG, GG1G) 

2G8. 001374B GG1G FORMATUH , 1X,*IMPINSP) 

2G9. 001374B IF ( IPRIMT. EQ .2) WRITECG, GG17) XWWC2) , XA, RH0GC2) , UZ, WW, BMIMPS, EM 

, $REBS, BMWAKS 

270. 001411B GG17 FORMAT ( 1H , 8CF12.5, IX) ) 

271. 00141 IB RST1=RADI2(ISTAGE)**2-AAA2*144.0'2.0/PAI 

272. 001415B RST1=SQRT(RST1 ) 

273. 001420B RST2=2. 0-RADI2C ISTAGE)**2-RST1**2 

274. 001422B RST2=SQRT(RST2) 

275. 001425B DELR=(RST2-RST 1 )'12. 0 

27G. 001427B FMASSS=EMWAKS'DELR 

277. 001430B CALL WICFMLCU2, U3, FMASSS, RH0G2, SCC ISTAGE) , SIGUMSC ISTAGE) , BETA1 , 

$BETA2, CDF , OMEGAF) 

278. 001442B 0MEGA5=0MEGAF 

279. 001442B DELP5=OMEGA5«0.5*RHOG(2)/GC*(U2**2) 

280. 001450B IFCIPRIMT.EQ.2) WRITECG, GG18) OMEGAS, DELP5 
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281. 

001460B 

6618 

FORMAT ( 1H , 1X,^0MEGA5=*,2F10.5) 

282. 

001460B 

CALL WICSTLC ISTAGE, 2, DAU, W1 , W2. DELU.U2, U3, WWMAS, UZ, N, BETA1 , BETA2, 
$ALFA2, ALFA3* DELUU2. DELUL2* OMEGRLI, OMEGRL, OMEGSU. OMEGSL, 



SDRAGRU, DRAGRL, DRAGSU, DRAGSL, REAUE) 

283. 

001503B 


OMEGAG=OMEGSU+OMEGSL 

284. 

001504B 


DELP6=0MEGAG« 0 . 5«RH0G ( 2 ) /GC* CU2**2 ) 

285. 

00151 IB 


IF ( IPRIMT. EQ.2) WRITECG, 6619) 0MEGA6, DELPG 

288. 

001521B 

GG19 

FORMAT (1H , IX, ^OMEGAG-/, 2F10 . 5) 

287. 

001521B 


REAUE2=REAUE 

288. 

001521B 


REAUE= ( REAUE 1 +REAUE2 ) *0 . 5 

288. 

001524B 


PR23=1 . 0- ( 0MEGA8+0MEGA4+0MEGA5+0MEGA6 ) * ( 1 . 0-PS2/PC2) ) 

280. 

001534B 


PR13=CTGC2VTGC 1 ) )**G1*PRREL»PR23/PP 

281. 

001543B 


PC3)=PR13*PC1) 

282. 

001545B 


TGC3)=TG(2) 

283. 

001546B 


TS3=TGC3)-U3*«2/C2.0*CPMIX*GC*AJ) 

234. 

001554B 


AG3= ( GAMMA*RMIX*TS3*GC ) **0 . 5 

285. 

001562B 


ASPEED=W I CASD ( XWT (1 ) . RHOG ( 2 ) » AG3 ) 

288. 

001564B 


ASPED3=ASPEED 

237. 

001564B 


AMAC3=U3/ASPEED 

288. 

00156GB 


PS3=C1.0+G2*AMAC3*»2)*»C-G1)*PC3) 

288. 

00157GB 


RH0G3=PS3/RMIX/TS3 

300. 

001G01B 


RH0GC3)=RHQG3 

301. 

001601B 


RH0M3= 1 . 0 / C XG/RH0G3+XWT C 1 ) /RHOU ) 

302. 

001G0GB 


UZ=BMASS/RH0G3/AAA3 

303. 

00.1G10B 


UZ3CL=UZ 

304. 

001G10B 


IF( JJJJ.EQ.2) GO TO 3010 

305. 

001612B 


IFCJJJJ.GT.2) GO TO 3020 

306. 

001614B 


XXX1=UZ3AS 

307. 

001G15B 


YVY1=UZ3CL 

308. 

001G17B 


JJJJ=JJJJ+1 

309. 

001G20B 


GO TO 3001 

310. 

001G21B 

3010 

XXX2=UZ3AS . 

311. 

001G22B 


YYY2=UZ3CL 

312. 

001G24B 


UZ=W I CNEW C XXX 1 , YYY 1 , XXX2, YYY2 ) 

313. 

001G27B 


IFCIPRINT.E0.2) WRITECG. 3030 ) JJJJ.UZ 

314. 

001G37E 

3030 

FORMAT ( 1H . IX, 12, 2X, ^UZ33=^, F10.5) 

315. 

001G37B 


JJJJ=JJJJ+1 

316. 

001G40B 


GO TO 3001 

317. 

001G40B 

3020 

IF ( ABSC CUZ3AS-UZ3CL)/UZ3AS) .LT. EPS) GO TO 4000 

318. 

001G45B 


XXXl=XXXc 

319. 

001G45B 


YYY1=YYY2 

320. 

001G47B 


XXX2=UZ3AS 

321. 

001G50B 


YYY2=UZ3CL 

322. 

001G52B 


UZ=WICMEW ( XXXI , YYY1, XXX2, YYY2 ) 

323. 

001G54B 


IF ( IPRIMT. EQ. 2) WRITECG, 3040) JJJJ.UZ 

324. 

001GG4B 

3040 

FORMATC1H , IX, 12, *UZ33=^, F10.5) 

325. 

001GG4B 


JJJJ=JJJJ+1 

328. 

001GG5B 


IFC JJJJ.EQ.20) GO TO 4000 

327. 

001G6GB 


GO TO 3001 

328. 

001GG7B 

4000 

UZ3=UZ3CL 

328. 

001GG7B 


FAI3=UZ3/UTIPGC ISTAGE+1 ) 

330. 

001671B 


TWC3)=TWC2) 

331. 

001G73B 


TWWC3)=TWC2) 

332. 

001G74B 


OMEGTR=OMEGA1+OMEGA2+OMEGA3+OMEGA7 

333. 

001700B 


0MEGTS=0MEGA4+0MEGA5+0MEGA6+0MEGA8 

334. 

001704B 


PRATI0=PC3)/PC1) 

335. 

00170GB 


TRATI0=TGC3)/TGC 1 ) 

336. 

001710B 


CALL WlCPRPCXA, XUC3) . XCH4, TGC3) , RMIX, CPMIX, GAMMA, Gl, G2, G3) 

337. 

001713B 


GAMMA2=GAMMA 

338. 

001713B 


GAMMAU= C GAMMA1 +GAMMA2 ) /2 . 0 
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339. 

340. 

341. 

342. 

343. 

344. 

345. 


34G. 

347. 


348. 

349. 


350. 

351. 

352. 

353. 

354. 

355. 
35B. 

357. 

358. 

359. 
3E0. 
3S1 . 
3G2. 

363. 

364. 

365. 

366. 

367. 

368. 

369. 

370. 

371. 

372. 

373. 

374. 

375. 

376. 

377. 

378. 

379. 

380. 

381. 

382. 

383. 

384. 

385. 

386. 

387. 

388. 

389. 

390. 

391. 

392. 


001716B 

001720B 

00172GB 

001737B 

001740B 

001743B 

001751B 


001751B 

001760B 


001760B 

001767B 


0017G7B 
001772B 
001772B 
002000B 
002000B 
00200GB 
00200GB 
002014B 
002014B 
002022B 
002022B 
002030B 
002030B 
00203GB 
00203GB 
002044B 
002044B 
002052B 
002052B 
002057B 
002057B 
002070B 
002070B 
002075B 
002075B 
002102B 
002102B 
0021 10B 
002110B 
00211GB 
00211GB 
002123B 
002123B 
002131B 
002131B 
002137B 
002137B 
002145B 
002145B 
002152B 
002152B 
002157B 
002157B 


G4= C GAMMAU- 1.0) /GAMMAU 

ETAACISTAGE)=CPRATIO**G4-1.0)/CTRATIO-1.0) 

PSI=GC*AJ*CPMIX*ETAACISTAGE)*CTGC2)-TG(1))/CUTIPGCISTAGE)**2) 
TAU=PSI/ETAA( ISTAGE) 

IFC IDESIN.EQ.2) GO TO 999 
WRITE (6» 404) FAIO, ISTAGE 

404 FORMAT ( 1H1* IX, S****************** /, IX, 

S/INITIAL FLOW COEFFICIENT-/, IX. F5.3» IX, ZC STAGES, I2» IX. 

$;*)/, gx, ) 

WRITECG, 401 ) PRATIO, TRATIO, ETAAC ISTAGE) 

401 FORMAT C 1H0. 5X, ISTAGE TOTAL PRESSURE RATION. F12. 5,/, 

$GX, /STAGE TOTAL TEMPERATURE RATION. F12. 5, /, 

$GX. ISTAGE ADIABATIC EFFICIENCYS, F12.5) 

UR I TE C 6 , 402 ) F AI 1 . U2 1 , UT I PG C I ST AGE ) 

402 FORMAT (1H0.5X, ISTAGE FLOW COEFFICIENTS, F5. 3, /» 

$GX, /AXIAL UEL0CITYS.F7.2,/, 

$GX, /ROTOR SPEEDS, F7. 2,/) 

WRITECG, 405) 

405 FORMAT C 1H0, 24X, /*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLETS) 
WRITECG, 40G) PC 1 ) , PC2) , PC3) 

40G FORMAT C 1H , IX, /TOTAL PRESSURES, 10X, 3CF10. 4, 5X) ) 

WRITECG, 407) PS1,PS2,PS3 

407 FORMAT C 1H , IX, /STATIC PRESSURES, SX, 3CF10. 4, 5X) ) 

WRITECG, 408) TGC 1 ) , TGC2) , TGC3) 

408 FORMAT C 1H , IX, /TOTAL TEMPERATURE C GAS) A 3X.3CF10.4.5X)) 

WRITECG, 409) TS1.TS2.TS3 

409 FORMAT C 1H , IX, /STATIC TEMPERATURE C GAS)/, IX, 3CF10.4, 5X) ) 
WRITECG, 410) RHOGC 1 ) , RH0G2, RH0G3 

410 FORMAT C 1H , IX, /STATIC DENSITYCGAS)/,5X,3CF10.4,5X) ) 

WRITECG, 411 ) RHOMC 1 ) , RH0M2, RH0M3 

411 FORMAT C 1H , IX, /STATIC DENSITY C MIXTURE)/, 1X,3CF10.4,5X)) 
WRITECG, 412) UZ1,UZ2,UZ3 

412 FORMATC1HO, IX, /AXIAL UELOCITY/, 10X, 3CF10. 4, 5X) ) 

WRITECG, 413) U1.U2.U3 

413 FORMAT C 1H , IX, /ABSOLUTE UELOCITY/, 7X.3CF10. 4, 5X)) 

WRITECG, 414) W1.W2 

414 FORMAT C 1H , IX, /RELATIUE UELOCITY/, 7X, 2CF10. 4, 5X) ) 

WRITECG, 415) UC ISTAGE) , UU2C ISTAGE) , UC ISTAGE+1 ) 

415 FORMAT C 1H , IX, /BLADE SPEED/, 13X, 3CF10 .4, 5X) ) 

WRITECG, 41G) US1.US2 

41G FORMAT C 1H , IX, /TANG. COMP. OF ABS. UEL.Z,2CF10.4,5X)) 

WRITECG, 417) WS1,WS2 

417 FORMAT C 1H , IX, /TANG. COMP. OF REL. UEL. /, 2CF10 .4, 5X) ) 

WRITECG, 418) ASPED1 , ASPEE2, ASPED3 

418 FORMAT C 1H , IX, /ACOUSTIC SPEED/, 10X, 3CF10.4, 5X) ) 

WRITEC6, 413) AMAC1, AMAC2, AMAC3 

419 FORMAT! 1H , IX, /ABSOLUTE MACH NUMBER/, 4X, 3CF10 . 4, 5X) ) 

WRITECG, 420) AMACH1 , AMACH2 

420 FORMAT C 1H , IX, /RELATIUE MACH NUMBER/, 4X.2CF10. 4, 5X) ) 

WRITEC6, 421 ) FAI 1 , FAI2, FAI3 

421 FORMAT C 1H0, IX, /FLOW COEFFICIENT/, 8X, 3CF10. 4, 5X>) 

WRITECG, 422) AAAI, AAA2, AAA3 

422 FORMAT ( 1H , IX, /FLOW AREA/, 15X, 3CF10.4, 5X) ) 

WRITEC6, 423) ALFA1, ALFA2, ALFA3 

423 FORMAT C 1H0, IX, /ABSOLUTE FLOW ANGLE/, 5X, 3CF10.4, 5X) ) 

WRITEC6, 424) BETA1 , BETA2 

424 FORMAT C 1H , IX, /RELATIUE FLOW ANGLE/, 5X, 3CF10.4, 5X) ) 

WRITECG, 425) AINCIR, AINCIS 

425 FORMAT C 1H , IX, /INCIDENCE/, 16X, 2CF10. 4, 5X) ) 

WRITEC6, 426) ADEUIR, ADEUIS 
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393. 002164B 426 FORMAT ( 1H , IX, PDEUIATIGN^, 30X, 2(F10. 4, 5X) ) 

394. 0021G4B 999 RETURN 

395. 0021GGB END 

C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


1. 000000B 

2. 000000B 

3. OOOOOOB 


4. OOOOOOB 

5. OOOOl IB 
G. 000013B 

7. 000015B 

8. 00001GB 

9. 000020B 

10. 000027B 

11. 000031B 

12. 00003GB 

13. 000041B 

14. 000047B 

15. 000052B 
1G. OOOOGOB 

17. 000064B 

18. 000071B 

19. 000073B 

20. 00007GB 

21. 000100B 

22. 00010GB 

23. 000113B 

24. 000117B 

25. 000125B 

2G. 000130B 

27. 00013GB 

28. 000142B 

29. 000147B 

30. 000152B 

31. 000154B 

32. 000157B 

33. 0001G5B 

34. 000172B 

35. 00017GB 

3G. 000204B 

37. 000207B 

38. 000215B 


SUBROUTINE WICMAC( ISTAGE, AMASSM, T01G, PRES, M, U2, C, XU1. ALFA, 

$RMIX* CPMIX, AREA1 ) 

REAL M , MAI , MCI, MA2, MC2, MANEW, MCNEW 
COMMON JPERFM, RHOG ( 3 ) , RERUP, RERLOW, RESUP, RESLOW 
PREB, RRTIPC20 ) , SRTIP(20 ) , AAAI , AAA2, AAA3, SAREAC20 ) , SAREASC20) 
-,P(3),TG(3),XA,XU(3),XCH4,XW(3),XWU(3),XUT(3),TU(3),TWW(3) 

OMEGSC20 ) , OMEGRC20) , GAPR(20 ) , GAPSC20 ) 

''t RRHUBC20 ) , RC(20) , RBLADEC20) , STAGERC20) 

-,SRHUB(20) , SC(20 ) , SBLADE ( 20 ), STAGES (20 ) 

-,SIGUMR(20) , BET1SR(20) , BET2SRC20) , AINCSRC20) , ADEUSRC20) 
-,SIGUMS(20) , BET1SS(20) , EET2SS(20) , AINCSSC20) , ADEUSSC20) 
-,UTIPG(20),UTIP(20),UT1PD(20),UDU(20),UMEAN(20),UHUB(20),U(20),FAI 
AREA (20 ) , AREAS (20 ) , UU2(20) , UTIP2C20 ) , UMEAN2(20) , UHUB2C20) , IPRINT 
ICENT, IICENT,FMR1(20),FMA2(20), IDESIN.FAID 

NS, NSF.NSLPC, BYPASS, NS1 , RT(20) , RM(20 ) , RH(20 ) , ST(20) , SM(20 ) , SH(20) 
-,DSMASS,AAREA(20), AAREAS(20),PR12D(20),PR13D(20),ETARD(20). 

DR(20 ) , DS(20 ) , DEQR(20 ) , DEQS( 20 ) , BLOCK (20 ) , BLOCKS (20 ) 

BET1MR(20 ), EET2MR(20 ), BET1MS(20 ),BET2MS(20), RADII (20), RADI2(20) 
-,FAIRIN(20),FAIOUT(20),ETASG(20),PSID(20),TAUD(20),SITADR(20) 
~,SITADS(20),WWD(20),UUD(20) 

GAMMA=1 .0/(1. O-RMIX/CPMIX/778. 0 ) 

G2= ( G AMM A- 1 . 0 ) /2 . 0 
G3=-1.0/(GAMMA-1.0) 

MA1=0 . 5 

RHOG1=PRES/RMIX/T01G 

RHOGS=( 1 . 0+G2*MAl**2)**G3«RH0Gl 

RH0W=G2.4 

RHOMS=l . 0/( ( 1 . 0-XW1 )/RHOGS+XWl/RHOW) 

TS=T01G/( 1 . 0+G2«MAl**2) 

A=SGRT(GAMMA*RMIX*TS*32.174) 

C=WICASD(XW1, RHOGS , A ) 

I F ( JPERFM . NE . 3 ) UZ=AMASSM/RHOMS/AREA 1 
I F ( JPERFM . EQ . 3 ) UZ=AMASSM/RH0GS/AREA 1 
I F ( AMASSM . LT . 0 . 0 0 1 ) U2=UT IPG( I STAGE ) *FAI 
ALFAR=ALFA*3. 1415927/180 . 0 
MC1=U2/C/C0S(ALFAR) 

MA2=0 . G 

RH0GS= ( 1 . 0+G2*MA2**2 ) *»G3*RH0G1 
RH0MS=1 . 0/( ( 1 . 0-XW1 )/RH0G5+XWl/RH0W) 

TS=T01G/( 1 . 0+G2*MA2**2) 

A=SQRT ( G AMM A*RM I X*TS*32 . i 74 ) 

C=WICASD(XW1, RHOGS, A) 

IF ( JPERFM . NE . 3 ) U2=AMASSM/RH0MS/AREA1 
I F ( JPERFM . EQ . 3 ) UZ=AMASSM/RH0GS/AREA1 
IF( AMAS3M.LT. 0.001) U2=UTIPG( ISTAGE)*FAI 
MC2=U2/C/C0S ( ALFAR ) 

J=1 

300 MANEW=UIICNEU ( MAI , MCI, MA2, MC2) 

RHOGS= ( 1 . 0+G2«MANEW**2 ) -:h(G 3*RHDG 1 
RHOMS=l . 0/( ( 1 . 0-XW1 )/RHOGS+XWl/RHOW) 

TS=T0 1 G/ ( 1 . 0+G2*MANEW**2 ) 

A=SQRT(GAMMA-"-RMIX*TS«32. 174) 

C=WICASD(XW1 , RHOGS, A) 

IF ( JPERFM. NE. 3) UZ=AMASSM/RH0MS/AREA1 
IF ( JPERFM. EQ. 3) U2=AMASSM/RH0GS/AREA1 
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39. 

000221B 



IF ( AMASSM . LT . 0 . 00 1 ) UZ=UT IPG (1ST AGE ) *FAI 

40. 

000226B 



MCNEW=UZ/C/C0S ( ALFAR ) 

41. 

000231B 



ERROR= ABS C MANEU-MCNEU ) 

42. 

000234B 



ERROR=ERROR/MANEU 

43. 

000235B 



EPS=1 . OE-5 

44. 

000236B 



IFCERROR.LT. EPS) GO TO 200 

45. 

000237B 



MA1=MA2 

46. 

000240B 



MC1=MC2 

47. 

000242B 



MA2=MANEW 

48. 

000243B 



MC2=MCNEW 

49. 

00C245B 



J=J+1 

50. 

000246B 



IFC J.LT.50) GO TO 300 

51. 

000247B 



WRITEC6. 403) ISTAGE 

52. 

000254B 


403 

FORMAT (1 HO, *MZ DOES NOT CONUERGE AT STAGE=*.I1) 

53. 

000254B 



GO TO 998 

54. 

000254B 


200 

M=MANEW 

55. 

000255B 



IFCAMASSM.LT. 0.001) ISTAGE=0 

56. 

000262B 


998 

RETURN 

57. 

000264B 



END 



C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1. 

00G000B 



FUNCTION MICASD C XU , RHOG , CG ) 

2. 

OOOOOOB 



RH0l-l=62 . 2567 

3. 

000001B 



CM = 4956.04 

4. 

000003B 



SIGUMA = C XW * RHOG ) / C RHOW - XW * ( RHOW - RHOG )) 

5. 

000007B 



A1 = C 1 . 0-SIGUMA ) * RHOG + SIGUMA * RHOLI 

6. 

000012B 



A2 = C 1.0- SIGUMA ) / C RHOG * CG* CG ) 

7. 

000016B 



A3 = SIGUMA / C RHOW * CW* CW) 

8. 

000017B 



A4 = A1 « C A2 + A3) 

9. 

000021B 



I-IICASD =1.0/ SORT ( A4 ) 

10. 

000024B 



RETURN 

11. 

000027B 



END 



C++++++++++++++++++++++++V++++++++++++++++++++++++++++++++++++++++++++++ 



c 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 



c 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++•++++++++++++ 

1. 

OOOOOOB 



FUNCTION WICEDCAK3. UZ1 . UZ2* UR1 , R1 , R2.BET1. BET2. SIGUMA. AINCIS, 




SAINCI ) 

2. 

OOOOOOB 



Cl=180. 0/3. 1415926 

3. 

000001B 



BET1R=BET1/C1 

4. 

000003B 



BET2R=BET2/C1 

5. 

000004B 



CSB1=C0SCBET1R) 

6. 

000007B 



CSB2=C0SCBET2R) 

7. 

00001 IB 



CSCS=CSB2/CSB 1 ”• C UZ 1 /UZ2 ) 

8. 

000014B 



TNB1=WICTANCBET1R) 

9. 

000017B 



TNB2=WICTAN C BET2R ) * C UZ2/UZ1 ) * ( R2/R1 ) 

10. 

000026B 



TNTN=TNB1-TNB2- C UR1 /UZ1 )* C 1 . 0- C R2/R1 ) **2 ) 

11. 

000035B 



DE01=0. 0117*CABSC AIHCI-AINCIS) )**1 . 43 

12. 

000044B 



DEQ2=0.61«CCSB1**2 0)/SIGUMA*TNTN 

13. 

000051B 



WICED=CSCS«AK3«C 1 . 12+DEQ1+DEQ2) 

14. 

000056B 



RETURN 

15. 

000060B 



END 



1 . 

OOOOOOB 

FUNCTION WICMTKCSITACS. AMACH1 , DELDEQ. AK2) 

2. 

OOOOOOB 

IFCDELDEO.LT. 0.0) GO TO 10 

3. 

000003B 

A1=0.827*AMACH1 

4. 

000004B 

A2=2 . 692- ( AM ACH 1 »*2 ) 

5. 

000005B 

A3=2.G75~CAMACHl*-"-3) 

6. 

000007B 

A=A1-A2+A3 
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7. 000012B HICMTK=SITACS+A*(DELDEQ*»2)»AK2 

8. 00001GB GO TO 11 

9. 000017B 10 B1=2.80’”AMACH1 

10. 000020B B2=8 . 7 1 “ ( AM ACH 1 * *2 ) 

11. 000021B B3=9. 36- : -(AMACHl-- tt 3) 

12. 000023B B=B1-B2+B3 

13. 00002GB UIC!1TK=SITACS+B*(DELDEQ»»2)*AK2 

14. 000032B 11 RETURN 

15. 00003GB END 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1. 000000B FUNCTION NICLOSCBET1 , BET2, SIGUMA, SITA) 

2. 000000B Cl=180 . 0/3. 141592G 

3. 000001B BET1R=BET 1/Cl 

4. 000003B BET2R=BET2/C1 

5. 000004B CSB1=C0S(BET1R) 

G. 000007B CSB2=C0S( BET2R) 

7. 00001 IB CSCS=CSB1/CSB2 

8. 000012B UICLOS=SITA*2.0*SIGUMA/CSB2»(CSCS**2) 

9. 00001GE RETURN 

10. 000020B END 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


1. OOOOOOB 

2. OOOOOOB 

3. OOOOOOB 


4. OOOOOOB 

5. 000001B 
G. 000003B 

7. 000004B 

8. 000012B 

9. 000014B 

10. 00001GB 

11. 000021B 

12. 000024B 

13. 000034B 

14. 000037B 

15. 000041B 

1G. 000044B 

17. 00004GB 

18. 000052B 

19. 000055B 


SUBROUTINE UICIRS ( 1ST AGE, R, XH1 , XG, RHDG1 , BETA1 , hi , 

1WW1 , WUI2 , UW ) 

REAL LUC 

COMMON JPERFM, RHOG( 3) » RERUP, RERLOH, RESUP, RESLOU 
PREB, RRTIPC20 ) , SRTIP(20) , AAAI , AAA2, AAA3, SAREA(20 ) , SAREASC20) 
~,P(3)»TG(3),XA,XU(3)» XCH4, XH(3) > XUH(3) » XUT(3) , TU(3) » THU (3) 

- , OMEGS ( 20 ) , OMEGR ( 20 ) , GAPR ( 20 ) , GAPS ( 20 ) 

RRHUBC20 ) , RC(20) , RBLADEC20) , STAGERC20) 

-,SRHUB(20) , SC(20) , SBLADE(20),STAGES(20) 

-,SIGUMR(20) , BET1SRC20) , BET2SRC20) , AINCSRC20) , ADEUSRC20) 
-,SIGUMS(20) . BET1SSC20) , BET2SSC20) , AINC5SC20) , ADEUS5(20.) 
UTIPG(20 ) , UTIP(20 ) , UTIPD(20 ) > UOUC20) , UMEAN(20 ) , UHU3(20) , U(20) » FAI 
AREA (201 , AREASC 20 ) , UU2( 20 ) , UT IP2 ( 20 ) , UMEAN2 ( 20 1 , UHUB2 (20 ) , IPRINT 
ICENT. IICENT,FMR1(20),FMA2(20), IDESIN.FAID 
~ » NS , NSF , NSLPC , BYPASS, NS1 , RT ( 20 ) , RM ( 20 ) , RH ( 20 ) , ST ( 20 ) > 5M ( 20 ) > 5H ( 20 ) 
- , DSMASS , AAREA ( 20 ) , AAREAS ( 20 ) , PR 1 2D ( 20 ) , PR 1 3D ( 20 ) , ET ARD ( 20 ) 

DR(20 ) , DS(20 ) , DEQR(20 ) , DEOS(20) , BLOCK(EO) , BLOCKS(20 ) 

BET 1 MR (20 ) , BET2MR(20 ) , BET 1MS(20 ) , BET2NS(20 ) , RADI 1(20), RADI 2 (20) 
FAIRIN(2Q ) , FAIOUT (20 ) , ETASGC20 ) , PSID(20 ) » TAUD(20 ) , SITADR(20 ) 
-,SITADS(20),WUD(20),UUD(20) 

N = I STAGE 
PA I = 3. 141592G 
B1 = 1.0 

B2R = ( 90.0 - BETA1 + STAGER ( N )) * PAI / 180.0 
B2 = COS ( B2R ) 

LHC=XH1/XG»RH0G1 

DS1=0.07-RC(N) 

BETA1R = BETA1* PAI / 180.0 

DS2 =2.0 * PAI * R / RBLADE(N) * COS (BETA1R) / 

$C0S(B2R) 

IF (DS2. GE.RC(N) ) DS2=RC(N) 

H=(AAA1*144.0)/(2.0*PAI*R) 

A 1 =DS 1 *H-::-RBLADE ( N ) / 1 44 . 0 
A2=DS2*H~RBLADE ( N ) / 144 . 0 
UH1 = LUC HI * B1 * A1 
UU2 = LUC * HI * B2 * A2 
HH = HH1 + WW2 
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20. 000057B RETURN 

21. 0000G1B END 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


1. OOOOOOB SUBROUTINE WICIRLC ISTAGE, R, XW1, XG, RHOG1, BETA1, Ml, 

1WW1 t WW2 * UIU1 ) 

2. OOOOOOB REAL LUC 

3. OOOOOOB COMMON JPERFM, RH0GC3) . RERUP, RERLOW, RESUP* RESLOW 

PREB. RRTIPC20 ) . SRTIPC20 ) , AAAI , AAA2. AAA3, SAREAC20 ) , SAREASC20 ) 
~»P(3)»TG(3)» XA* XU(3) > XCH4, XW(3) , XWW( 3) > XWT(3) » TWO) > TWWC3) 

- , OMEGS ( 20 ) , OMEGR ( 20 ) , GAPR ( 20 ) , G APS C 20 ) 

-'»RRHUBC20) , RC(20) , RBLADEC20) , STAGERC20) 

~,SRHUB(20) , SC(20) , SBLADEC20 ) » STAGES (20) 

~,SIGUMR(20) , BET1SROO) , BET2SRC20) , AINCSR(20) , ADEUSRC20) 
SIGUMSC20 ) , BET1SSC20 ) , BET2SSC20) , AINCSSC20) , ADEUSSC20) 
UTIPGC20 ) , UTIPC20 ) , UTIPD(20) , UOUC20 ) > UMEANC20 ) » UHUBC20) > U(20) » FAI 
AREAC20) > AREAS (20 ) , UU2C20 ) » UTIF2C20) , UMEAN2C20) , UHUB2C20) » IPRINT 
' ICENT, 1 1 CENT » FMR1 (20 ) »FMA2(20) » IDESIN» FAID 

NS> NSF > NSLPC > BYPASS. NS 1 , RT ( 20 ) , RM ( 20 ) . RH ( 20 ) > ST ( 20 ) , SM ( 20 ) , 5H ( 20 ) 
DSMASS, AAREAC20 ) » AAREASC20 ) » PR12DC20 ) , PR13DC20 ) > ETARDC20) 

DR(20 ) , DSC20 ) • DEQRC20 ) * DEGS(20 ) » BLOCK (20 ) » BLOCKS C 20 ) 

* , BET 1 MR ( 2 0 ) » BET2MR ( 20 ) » BET 1 MS ( 20 ) » BET2MS ( 20 ) » RAD 1 1 ( 20 ) > RAD 12(20) 
~»FAIRIN(20)» FAIOUT (20 ) » ETASG(20) » PSID(20) » TAUDC20) > SITADRC20 ) 

SI TADS (20 ) * WWD(20 ) * UUDC20 ) 


4. 

OOOOOOB 

N = ISTAGE 

5. 

000001B 

PAI = 3.141592G 

G. 

000003B 

LWC=XW1/XG/'RH0G1 

7. 

00000GB 

ALFA=(90. 0-BETA1 )/2. 0*PA 1/180. 0 

8. 

000012B 

BETA=(90. 0+BETA1 )/2. 0*PAI/180.0 

3. 

00001GB 

B1=SIN( ALFA) 

10. 

000021B 

B2=SINCBETA) 

11. 

000023B 

U1=W1*C0S( ALFA) 

12. 

000025B 

U2=W1 -“COS (BETA) 

13. 

000030B 

S=2 . 0 *PAI *RRT I P ( I STAGE ) /RBLABE ( I ST AGE ) /2 . 0 

14. 

000035B 

GSI-BETAl + C 90 . 0-BETA1 )/2. 0 

15. 

000040B 

GSIR=GSI-::-PAI/ 180.0 

1G. 

000042B 

STAGR=STAGER(ISTAGE)*PAI/130.0 

17. 

000045B 

V2=GAPR ( ISTAGE ) /2. 0- C WICTAN CSTAGR ) -WICTAN ( GSIR) ) +S 

18. 

00005GB 

DAMY1=(90.0-GSI)*PAI/180.0- 

19. 

0000G2B 

Y1=Y2*SIH(DAMY1 ) 

20. 

0000G4B 

DAMY2=(GSI-STAGER( ISTAGE) )*PAI/180 . 0 

21. 

000071B 

DS1=Y1/SIN(DAMY2) 

22. 

000073B 

IFCDS1 .GT.RCC ISTAGE) ) DS1=RC( ISTAGE) 

23. 

000077B 

DAMY3=(90.-(90.0+BETAl)/2.0)*PAI/180.0 

24. 

000103B 

DAMY4=STAGER ( ISTAGE ) "PAI/1 80 . 0 

25. 

00010GB 

DAMY5=BETA1«PAI/180 . 0 

26. 

000110B 

DAMYG=S-GAPR ( ISTAGE ) /2 . 0# C WICTAN ( DAMY5 ) -WICTAN ( DAMY3 ) ) 

27. 

000120B 

DAMY7=CG5 ( DAMY4) *WICTAN( DAMY3 )+SIN( DAMY4 ) 

28. 

000131B 

DS2=DAMYG/DAMY7 

23. 

000132B 

I F C DS2 . GT . RC ( I ST AGE ) ) DS2=RC (ISTAGE) 

30. 

00013GB 

H=(AAA1*144.0)/(2.0*PAI*R) 

31. 

000142B 

A1=BS1*H*RBLAEE(N)/144.0 

32. 

00014GB 

A2=DS2*H-:: RBLADE ( N ) /1 44 . 0 

33. 

000150B 

WW1 = LWC * U1 * B1 * A1 

34. 

000154B 

WW2 = LWC * U2 * B2 * A2 

35. 

0001G0B 

WW = WW1 + WW2 

3G. 

0001G2B 

RETURN 

37. 

0001G4B 

END 


C ++++++++++++-:-+++++++++++++++++++++++++++++++++++++++++++++++++++++ 
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1. 

2 . 

3. 


4. 

5. 
G. 

7. 

9. 

9 . 

10 . 

11 . 

12 . 

13. 

14. 

15. 
1G. 
17. 
19. 

19. 

20 . 


1 . 

2 . 

3. 


4. 

5. 


OOOOOOB 

OOOOOOB 

OOOOOOB 


OOOOOOB 

000003B 

OOOOOGB 

000007B 

000010B 

000015B 

000020B 

000022B 

000033B 

00003GB 

000040B 

000043B 

000045B 

000051B 

000054B 

00005GB 

OOOOGOB 


i 


SUBROUTINE UICISSC ISTAGE ,R ,XU1, XG , RHOGAS » ALFA2»U1 , 

$uui,uu 2 ,uu) 

REAL LUC 

COMMON JFERFM , RHOG ( 3 ) , RERUP , RERLOU , RESUP , RESLOW 
PREB, RRTIPC20 ) , SRTIP(20 ) , AAAI > AAA2> AAA3» SAREA(20) » SAREASC20) 

. ~,P(3),TG(3),XA,XU(3),XCH4,XU(3),XUW(3),XUT(3),TU(3),TWW(3) 
OMEGS(20) » OMEGR(20) » GAPR(PO) »GAPS(20) 

-,RRHUB(20) , RCC20 ) , RBLADE(20) , STAGERC20) 

~,SRHUB(20) , SC(20) , SBLADEC 20), STAGES (20) 

-,SIGUMR(20) , BET1SRC20) , BET2SRC20) , AINCSRC20) , ADEUSRC20) 
~,SIGUMS(20) , BET1SSC20) , BET2SSC20) , AINCSSC20) , ADEUSSC20) 
UTIPG(20 )', UTIP(20 ) , UTIPD(20 ) > UOU( 20) , UMEANC20 ) , UHUBC20) , U(20 ) , FAI 
AREA (20 ) , AREAS (20 ) , UU2(20 ) > UTIP2( 20) , UMEAN2C20) , UHUB2C20) , I PRINT 
ICENT, IICENT , FMR1 (20 ),FMA2(20) , IDESIN, FAID 

NS, NSF.NSLPC, BYPASS, NS1 , RT(20 ) , RM(20) , RH(20) , ST(20 ) , SM(2.0 ) , SH(20) 
-,D3MASS,AAREA(20),AAREAS(20),PR12D(20),PR13D(20),ETARD(20) 

'•-* DR(20 ) , DS(20 ) » DEQR(20 ) , BEGS (20 ) , BLOCK (20 ) , BLOCKS (20 ) 

BET1MR(20),EET2MR(20),BET1MS(20),BET2MS(20), RADII (20), RADI2(20) 
~»FAIRIN(20)» FA I OUT (20 ) , ETASG(20 ) , PSID(20 ) , TAUD(20 ) , SITADR(20) 

SI TADS (20) , WWD(20 ) , UUD(20 ) 

LUC = XUi/ XG » RHOGAS 

DS1=( 0.0G « SC ( ISTAGE ) ) / 12.0 

PAI=3. 141592G 

Bl=l . 0 

B2R=( 90 . 0-ALFA2+STAGES ( ISTAGE ) ) *PAI/180 . 0 
B2=C0S(B2R) 

ALFA2R=ALFA2-”-PAI/180.0 

DS2=2. 0*PAI*R/SBLADE( ISTAGE ) -COS ( ALFA2R ) /CDS ( E2R ) 

I F ( DS2 . GT . SC ( I STAGE ) ) DS2=SC ( I STAGE ) 

H= ( A A A2* 1 44 . 0 ) / ( 2 . 0 - PA I -*R ) 

A 1 =DS 1 -H-SBL ADE ( I ST AGE ) / 1 44 . 0 

A2=DS2"H«SELADE( ISTAGE)/ 144. 0 

UU 1 =LUC*U 1 *B 1 -• A 1 

UU2=LWC-”-U 1 *B2* A2 

WW=Wm+WW2 

RETURN 

END 


OOOOOOB 

OOOOOOB- 

OOOOOOB 


OOOOOOB 

000001B 


SUBROUTINE WICISL( ISTAGE, R, XW1 , XG, RHOG1, ALFA2, U1 , WW1 , UW2, UU) 

REAL LUC 

COMMON JPERFM, RHOG (3 ) , RERUP, RERLOU, RESUP, RESLOU 
PREB, RRTIP(20 ) , SRTIP( 20 ) , AAAI , AAA2, AAA3, SAREA(20 ) , SAREAS(20) 
-,P(3),TG(3),XA,XU(3),XCH4,XU(3),XUU(3),XUT(3),TW(3),TUW(3) 
OMEGS(20) , OMEGR(20 ) , GAPR(20) , GAPS(20 ) 

RRMUB(20 ) , RC(20 ) , RBLADE(EO) , STAGER(20) 

-,SRHUB(20) , SC(20 ) , SBLADE(20 ) , STAGES (20) 

-,SIGUMR(20) , BETISR(PO) , BET2SR(20) , AINCSR(20) , ADEUSR(20) 
~,SIGUMS(20) , BET1SS(20 ) , BET2SS(20) , AINCSS(20) , ADEUSS(20) 
-,UTIPG(20),UTIP(20),UTIPE(20),UOU(20),UMEAN(20),UHUB(20),U(20),FAI 
AREA (20 ) , AREAS (20 ) , UU2(20) , UTIP2(20 ) , UMEAN2(20 ) , UHUE2(20) , IPRINT 
ICENT , I ICENT , FMR1 (20 ) , FMA2(20) , IDESIN, FAID 

NS, NSF, NSLPC, EYPASS, NS1 , RT(20) , RM(20 ) , RH(20 ) > ST(20) > SM(20 ) , SH(20) 
DSMASS, AAREA(20 ) , AAREAS(20 ) , PR12D(20 ) , PR13D(20 ) , ETARD(20 ) 

- , DR ( 20 ) , DS ( 20 ) , DEQR ( 20 ) , DEQS (20),BL0CK(20), BLOCKS (20) 

BET 1 MR (20 ) , BET2MR(20) , BET1MS(20) , BET2MS(20) , RADI 1(20), RADI 2 (20) 
~,FAIRIN(20)» FAIOUT (20 ) , ETASG(20) , PSID(20 ) , TAUD(20 ) , SITADR(20 ) 
SITADS(20 ) , WWD(20 ) , UUDC20 ) 

PAI=3. 141592G 

LUC = XUI/ XG * RHOG1 
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6. 000004B ALFA=(90.0-ALFA2)/2.0«PAI/180.0 

7. 00001 IB BETA=(90.0+ALFA2)/2.0*PAI/180.0 

8. 000015B B1=SIN(ALFA) 

9. 000020B B2=SIN(BETA) 

10. 000022B U1=W1*C03( ALFA) 

11. 000024B U2=W1*C0S(BETA) 

12. 000027B S=2 . 0*P A I *SRT I P ( I ST AGE ) /SBLADE (1ST AGE ) /2 . 0 

13. 000034B GSI=ALFA2+(90.0-ALFA2)/2.0 

14. 000037B GSIR=GSI«PAI/’180.0 

15. 000041B STAGR=STAGES(ISTAGE)*PAI/ / 180.0 

1G. 000044B Y2=GAPS( ISTAGE)/2. 0*(WICTAN(STAGR)-WICTAN(GSIR) )+S 

17. 000055B DAMY1 = (90.0-GSI)-»PAI/'180.0 

18. 0000G1B Y1=Y2*SIN(DAMY1) 

19. 000063B DAMY2=(G9 I -STAGES ( I STAGE) )*PAI/180 . 0 

20. 000070B DSl=Yl/'SIN(BAIiY2) 

21. 000072B IF(DS1 . GT.SC( I STAGE) ) DS1=SC( ISTAGE) 

22. 00007GB DAMY3=(90 .-(90 . 0+ALFA2V2. 0 )*PAIV180. 0 

23. 000102B DAMY4=STAGES(ISTAGE)*PAI/180.0 

24. 000105B DAMY5=ALFA2*PAI/180.0 

25. 000107B DAMY6=S-GAPS( ISTAGE)/2. 0*(WICTAN(DAMY5)-WICTAN(DAMY3) ) 

2G. 000117B DAM Y7=COS ( DAMY4 ) *W I CTAN ( DAMY3 ) +SI N ( DAMY4 ) 

27. 000130B DS2=DAMY6/DAMY7 

28. 000131B IFCDS2.GT.SC( ISTAGE)) DS2=SC( ISTAGE) 

29. 000135B H=(AAA2*144.0)/(2.0*PAI*R) 

30. 000141B A1=DS1*H“-SBLADE( ISTAGE)/144. 0 

31. 000144B A2=DS2*H"-SBLADE(ISTAGE)/144.0 

32. 000147B WWl=LWC*Ul*Bl' si Al 

33. 000152B WU2-LUC--*U2--B2-~A2 

34. 00015GB WW=WW1+WW2 

35. 0001G0B RETURN 

3G. 0001G2B END 

C ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 

1. OOOOOOB 

2. OOOOOOB 

3. OOOOOOB 

4. 000002B 

5. 000003B 

G. 000005B 

7. 000012B 

8. 000015B 

9. 000022B 

10. 000027B 

11. 000030B 

12. 000034B 

13. 000037B 

14. 000044B 

15. 000051B 

1G. 000054B 

17. 0000G0B 

18. 0000G5B 

19. 000072B 

20. 000074B 

21. 000077B 

. C 

1. OOOOOOB SUBROUTINE WICHET(TG1.TG3,TW1,TW3,DAUEN2,DAUEN, 

SDELZI * UZr WMASS1 » UMASS1 . AMASS » CHMASS, CPG, CPU, DELTGH, DELTWH, RE) 

2. OOOOOOB DIMENSION DELHETC51 ) 

3. OOOOOOB REAL ND » KA * NU > MMASS.NU 


SUBROUTINE WICWAK ( RHOG , U , DWAKE * DWAKEM ) 

UISCOF=l .20E-3 
SIGUMA = 4.G534E-3 
GC = 32.174 
WE=21 . 0 

DWAKE 1 = ( WE * SIGUMA * GC ) / RHOG / U ** 2 
SN=UISC0F**2/(RH0G*SIGUMA*DWAKE1»GC) 

WEL I MT= 1 2 . 0* ( 1 . 0 +SN**0 . 3G ) 

D 1 =WEL I MT*S I GUM A*GC/ C RH0G*U**2 ) 

WE=22. 0 

DUA!<E2= ( WE*S I GUM A*GC ) /RHOGAJ** 2 
SN=U I SC0F**2/ ( RHOG-S I GUMA*DWAKE2*GC ) 

WELIMT=12. 0" ( 1 . 0+SN**0 . 3G ) 

D2=UELIMT*SIGUMA*GC/(RH0G»U**2) 

XXXX=WICNEW(DWAKE1 , D1 , DWAKE2, D2) 
SN=UISC0F**2/(RH0G*SIGUMA*XXXX*GC) 

WELIMT=12. 0*( 1 . 0+SN**0 . 3G) 

DWAKE=WELIMT«SIGUMA^GC/(RH0G^U**2) 

DWAKEM = DWAKE ✓ 3.2802 * 1.0EG 

RETURN 

END 

•++++++++++++++++++++++++++++++V++++++++++++++++++++++++++++++++++ 


159 



4. OOOOOOB DELTGH^O. 0 

5. 000070B DELTWH=0 . 0 

G. 000070B IFCNMASS1.LT.1.0E-6) GO TO 11 

7. 000073B PA I = 3.1415927 

8. 000074B DAUEAU=CBAUEN2+DAUEN)/2. 0*1. OE-G*3. 2802 

9. 000100B IFCDAUEAU.LT.1.0E-6) GO TO 11 

10. 000103B RHOW = G2.54 

11. 000103B ND = WMASS1 / C RHOW * 4.0 / 3.0 * PAI * ( DAUEAU / 2.0 ) ** 3) 

12. 000112B KA = 0.015 / 3GOO.O 

13. 000113B PR=0.7 

14. 000115B NU=2.0+0.G*SQRT(RE)*PR**0.33 

15. 000127B HCONUE = KA / DAUEAU * HU 

1G. 000131B J = 1 

17. 000132B 10 DELT=( (TG1-TW1 )+(TG3-TW3) )/2. 0 

18. 000140B DELHH = HCOHUE * 4.0 * PAI # ( DAUEAU / 2 0 ) **2*DELT * 

SND--DELZI/UZ 

19. 000150B GMASS1=UMASS1+AMASS+CHMASS 

20. 000154B DELTGH=DELHH/CGMASS 1«CPG ) 

21. 000156B BELTWH=DF.LKH/CUMASS1*CPW) 

22. 0001G0B TG3=TG3-DELTGH 

23. 0001G2B TW3=TW3+DELTWH 

24. 0001G4B DELh’ET C J)=DELHH 

25. 0001G5B J=J+1 

2G. 0001G7B IF( J.EQ.2) GO TO 10 

27. 000170B EROR=ABSCDELHET ( J-l )-DELHET ( J-2) ) 

28. 000173B EPS=0.0001 

29. 000174B IF( J.GT.50) GO TO 11 

30. 00017GB IF(EROR.GT.EPS) GO TO 10 

31. 00017GB 11 RETURM 

32. 000203B END 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1. OOOOOOB SUBROUTINE WICMASC HW1 , TW1 , TW2 . PP1 , PP2 , TGI . TG2 , D2 , 

1 PWB1 . PUB2 , PW1 . PW2 , U2 . DDAUE1 . DDAUE2 , HW2 , UMASS1 . 

1 UNASS2 , WNASS1 . WNASS2 , DMDTAU , AMASS . RE) 

2. OOOOOOB PWB1 = WICPWBCTW1 )*144. 0 

3. 000003B PWB2 = WICPWBC TW2 )*144.0 

4. 000007B PHI = ( HW1 * PP1 ) / ( HU1 + 0.G219 ) 

5. 000013B DMDT1 = HICMTRC TGI , TW1 . PP1 , DDAUE1 , U2 . D2 . WMASS1 , 

i 1PH1 . RE) 

G. 000027B PH2AS1 = PHI 

7. 000030B DMDT2 = HICMTRC TG 2 . TU 2 . PP2 , DDAUE2 , UZ , D2 , HMASS1 > 

' 1FH2A51 » RE) 

8. 000043B DMDTAU = C DMDT1 + DMDT2 ) / 2.0 

9. 000045B IFCDMDTAU.LT. 0.0) DiiDTAU=0.0 

10. 000050B HMASS2 = HMASS1 - DMDTAU 

11. 000051B IFCHMASS2.LT. 0.0) WMASS2=0.0 

12. 000054B DMDT AU=WMASS 1 -WMASS2 

13. 000055B UM A3S2=UMASS 1 +DMDT AU 

14. 00005GB HH2=UMASS2/AMASS 

15. 000057B PH2CL1 = C HW2 * PP2 ) / C HW2 + 0.G219 ) 

1G. 0000G3B- PH2AS2 = PHI * 1.05 

1 7. 0000G5B DMDT2 .= HICMTRC TG2 , TW2 , PP2 , DDAUE2 , U2 , DZ , WMA5S2 . 

1PH2AS2 .RE) 

18. 000100B' DMDTAU = C DMDT1 + DMDT2 ) ✓ 2.0 

19. 000102B IFCDMDTAU.LT. 0.0) Di1DTAU=0.0 

20. 000105B HMASS2 = HMASS1 - DMDTAU 

21. 00010GB. IFCWMASS2.LT. 0.0) WNASS2=0.0 

22. 0001 11B DMDTAU=WMASS1-WMASS2 

23. 000112B UMA3S2=UMASS1+DMDTAU 
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24. 

000113B 

25. 

000114B 

26. 

000120B 

27. 

000121B 

28. 

000125B 

29. 

000126B 

30. 

000127B 

31. 

000131B 

32. . 

000143B 

33. 

000145B 

34. 

000150B 

35. 

000151B 

36. 

000154B 

37. 

000155B 

38. 

000156B 

39. 

000157B 

40. 

000163B 

41. 

000170B 

42. 

000172B 

43. 

000173B 

44. 

000174B 

45. 

00017GB 

46. 

000177B 

47. 

000202B 


1 . 

OOOOOOB 

2. 

000000B 

3. 

OOOOOOB 

4. 

00000GB 

5. 

000007B 

6 . 

000011B 

7. 

000013B 

8. 

000015B 

9. 

00001GB 

10. 

000020B 

11. 

000023B 

12. 

000025B 

13. 

000031B 

14. 

000033B 

15. 

000045B 

16. 

000047B 

17. 

000053B 

18. 

0000G0B 

19. 

0000G1B 

20. 

000070B 

21. 

000102B 

22. 

000107B 


1 . 

OOOOOOB 

2. 

OOOOOOB 

3. 

000001B 

4. 

000004B 

5. 

OOOOOGB 

G. 

00D012B 

7. 

000012B 

8. 

000014B 


HW2 = UMASS2 / AMASS 

PW2CL2 = ( HW2 * PP2 ) / ( HW2 + 0.B219 ) 

J=0 

2 PW2ASN = UICMEW ( PW2AS1 , PW2CL1 , PW2AS2 , PU2CL2 ) 

PW2AS1 = PU2AS2 

PW2CL1 = PW2CL2 
PW2AS2 = PU2ASN 

DMDT2 = WICMTR( TG2 , TW2 , PP2 , DDAUE2 , UZ , DZ , WMASS2 , PW 
12AS2 , RE) 

DMDTAU = ( DMDT1 + DMDT2 ) / 2.0 
IF (DMDTAU.LT. 0.0) DI'1DTAU=0 . 0 
WMASS2 = WMASS1 -DMDTAU 
IF(WMASS2. LT. 0. 0) WMASS2=0.0 
DMDT AU=WMASS 1 -WMASS2 
UMASS2=UMASS1+DMDTAU 
HW2 = UMASS2 / AMASS 

PW2CL2 = ( HW2 * PP2 ) / ( HW2 + 0.S219 ) 

ERROR = ABS ( PU2AS2 - PW2CL2 )/(PW2AS2+l . 0) 

J=J+1 

IF(J.GT.IO) GO TO 3 
EPS = 0.01 

IF ( ERRGR . GT . EPS ) GO TO 2 

3 PU2 = PW2AS2 
RETURM 

EMD 


FUMCTION WICMTRC TTG. TTW, PPP, DAUE, UZ, DZ, MMASS, PW, RE) 

REAL KG , MD , MMASS 

IF (DAUE. LT. 1 . OE-6) WICMTR=0.0 

IF(DAUE.LT.l.OE-S) GO TO 10 

DD=DAUE» 1 . 0E-G*3 .2802 

T = ( TTG + TTW ) / 2.0 

PA I = 3. 1415926 

RHOW = 62.2567 

RR = DD / 2.0 

TT = T * 5.0 / 9.0 

PP = ppp * 47.880258 

DU=4.24028E-3*(TT**1.5)/PP 

SCT=0.60 

SH=2 . 0+0 . G0*SQRT (RE ) *SCT**0 . 33 

KG = DU / DD « SH 

HU= 1 115.3279-0 . 6840909* ( TTW-4G0 . 0 ) 

PWBB=PU+29 .0/18.0*0. 45/HU-PPP* ( TTG-TTW ) 

R = 85.78 

MD = MMASS / ( RHOW * 4. 0 / 3. 0 * PAI * RR ** 3 ) 

UICMTR = KG * 4.0 * PAI « RR ** 2 * ( PWBB / TTW - PW / TTG ) / R 
1 * MD * DZ / UZ 
10 RETURM 
EMD 

C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

FUMCTIOM WICPWB(TWB) 

TSTAG=TWB 

TSTAGC= ( TSTAG-492 . 0 ) / 1 . 8 
IF(TSTAGC.LT. 100.0) GO TO 40 

IF(TSTAGC.GE. 100.0. AMD.TSTAGC.LT. 200.0) GO TO 41 
A=5. 45142 
B=2Q10 . 8 
GO TO 42 
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9. 

000015B 

40 

A=5.9778 

10. 

00001GB 


B=2224. 4 

11. 

000020B 


GO TO 42 

12. 

000021B 

41 

8=5. G485 

13. 

000022B 


B=2101 . 1 

14. 

000024B 

42 

AA=A-B/CTSTAGC+273.0) 

15. 

000030B 


PS=10 . 0-“~"AA 

1G. 

000033B 


PS=PS/4 . 88247E-4 

17. 

000034B 


WICFWB=PS/144.0 

18. 

000035B 


RETURN 

19. 

000040B 

END 

c +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1. 

OOOOOOB 


FUNCTION UICNEWCX1,Y1,X2.Y2) 

2. 

OOOOOOB 


T=ABSCCX2-X1)/X1) 

3. 

000003B 


IFCT.LT.l.OE-G) UICNEU=CYl+Y2)/2.0 

4. 

000011B 


IF(T.LT.i.OE-G) GO TO 100 

5. 

000013B 


HI CNEW=X2- ( ( Y2-X2 ) / ( ( ( Y2-X2 ) - ( Y 1 -X 1 ) ) / ( X2-X 1 ) ) ) 

G. 

000023B 

100 

RETURN 

7. 

000027B 


END 


c 


1. 

OOOOOOB 


FUNCTION WICBPTCTSTAG* PST AG) 




2. 

OOOOOOB 


TSTAGC=< TSTAG-492. 0 )/l . 8 




3. 

0000033 


IFCTSTAGC.LT. 100.0) GO TO 20 




4. 

000005B 


IF ( TSTAGC . GE . 1 0 0 . 0 . AND . TSTAGC . LT . 20 0 . 0 ) 

GO 

TO 

21 

5. 

0000 1 IB 


A=5.45142 




G. 

00001 IB 


B=2010.8 




7. 

000013B 


GO TO 22 




8. 

000014B 

20 

A=5. 9778 




9. 

000015B 


B=2224. 4 




10. 

000017B 


GO TO 22 




11. 

00C020B 

21 

A=5. G485 




12. 

000021B 


B=2101 . 1 




13. 

000023B 

O! 

CU 

PS=PSTAG : --4 . 88247E-4 




14. 

000025B 


TBOILK=B/CA-ALOG10(PS) ) 




15. 

000031B 


UICEPT=TBOILK--‘l .8 




1G. 

000033B 


RETURN 




17. 

00003GB 


END 






c +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1. 

OOOOOOB 


FUNCTION UlICSHCTSTAGfPSTAG) 




2. 

OOOOOOB 


TSTAGC=( TSTAG-492 . 0 )/l . 8 




3. 

000003B 


IFCTSTAGC.LT. 100.0) GO TO 40 




4. 

000005B 


IFC TSTAGC . GE . 1 00 . 0 . AND . TSTAGC. LT. 200 . 0 ) 

GO 

TO 

41 

5. 

000011B • 


A=5. 45142 




G. 

000011E 


B=2010.8 




7. 

000013B 


GO TO 42 




8. 

000014B ' 

40 

A=5. 9778 




9. 

000015B 


B=2224.4 




10. 

000017B . 


GO TO 42 




11. 

000020B 

41 

A=5.G485 




12. 

000021B 


B=2101 . 1 




13. 

000023B 

42 

AA=A-B/ C TSTAGC+273 . 0 ) 




14. 

000027B 


PS=10. 0-~^AA 




15. 

000032B 


PS=PS^4 . 88247E-4 




1G. 

000033B 


HI CSH=0 . G21 8847-PS/ C PSTAG-PS ) 




17. 

00003SB 


RETURN 




18. 

000041B 


END 





c +++++++++++++-*-+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
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1. 

2. 

3. 

4. 

5. 
G. 

OOOOOOB 

OOOOOOB 

000004B 

000007B 

000010B 

000013B 

r 

' 4.X4. 

FUNCTION WICTANCX) 
A=COSCX) 

B=SINCX) 

UICTAN=B/A 

RETURN 

END 

1. 

l 

OOOOOOB 

, I T I 

SUBROUTINE WICCENCRZERO, UZERO, DD, UZ, DELZZ. ALFAAU, FN, IRS, RHOGAS, 




1RHUB, R2» U2» ITIP, UZTIME, XG, XA, XUU, XCH4, RTIPIN, IPRINT) 


c 

: irs 

=l: STATOR 


c 

; irs 

=2: ROTOR 


c 

: irs 

=3: CENTRIFUGAL ACTION FOR UAPOR 

2. 

OOOOOOB 


REAL N 

3. 

OOOOOOB 


PAI=3. 141592S 

4. 

000001B 


ALFAAR=ALFAAU*PAI^180 . 0 

5. 

000004B 


IFCDD.LT. l.OE-G) GO TO 12 

6. 

OOOOOGB 


D=DD*1.0E-G*3.2802 

7. 

000010B 


RHOA=RHOGAS 

8. 

000012B 


RH0D=G2. 37 

9. 

000013B 


XXAA=XA/XG 

10. 

000015B 


XXUU=XUU/XG 

11. 

000017B 


XXCC=XCH4/XG 

12. 

000020B 


UISCO=CXXAA*0 . 05715+XXUU*0. 03293+XXCC*0. 035)/3600. 0 

13. 

000027B 


ENDT I M=DELZZ/UZ 

14. 

000030B 


JJ=10 

15. 

000032B 


DELTIM=ENDT I M/FLOAT C J J ) 

1G. 

000033B 


R1=RZER0 

17. 

000035B 


U1=UZER0 

18. 

00003GB 


TIME=0 . 0 

19. 

000037B 


JJJ=1 

20. 

000041B 

u 

RE=D*U1/UISC0 

21. 

000044B 


Bl=0.44 

22. 

000045B 


N=0. 0 

23. - 

00004GB 


IFCRE.LT. 1.9) Bl=24. 0 

24. 

000052B 


IFCRE.LT. 1.9) N=1 . 0 

25. 

000055B 


IFCRE.GT. 1.9. AND.RE.LT. 500.0) Bl=18.5 

2G. 

0000G2B 


IFCRE.GT. 1.9. AND.RE.LT. 500.0) N=0.G 

27. 

0000G7B 


B=C CUISCU**N)*B1*PAI*CRH0A**C 1 . 0-N) )*G. 0)/C8. 0*RHOD*PAI) 

28. 

000105B 


C=B/(D**(1.0+N)) 

29. 

000113B 


IFCIRS.E0.3) C=0 

30. 

000117B 


UW1=R1/12.0*2.0*PAI*FN/G0.0 

31. 

000122B 


IFCR1.GT. RTIPIN) UW1=RTIPIN/12. 0*2. 0*PAI*FN/60. 0 

32. 

000130B 


UU2=UZ-"WICTANC ALFAAR) 

33. 

000132B 


IFCALFAAU.LT. 1.0) ULI=Ul-ll 

34. 

000137B 


IF C ALFAAU. GT. 1.0) UU=UWl/2.0 

35. 

000142B 


IFCIRS.E0.3) RH0A=23. 9G4 

3G. 

00014GB 


IFCIRS.E0.3) RH0D=1G. 043 

37. 

000151B 


A=UU*UW* C 1 . 0-RHOA/RHOD ) 

38. 

000155B 


I F C I RS . EQ . 3 ) DELU=A^R 1*12. 0*DELTIf1 

39. 

0001G3B 


IFCIRS.NE.3) DELU=CA/Rl*i2.0-PHJ1**(2.0-N))*DELTIM 

40. 

00017GB 


IF ( IRS . NE . 3 . AND . DELU . LT . 0 . 0 ) DELU=0 . 0 

41. 

000203B 


U11=U1 

42. 

000203B 


U2=U1+DELU 

43. 

000205B 


DELU=U2-U11 

44. 

000207B 


UAUE=Ul+DELU/2.0 

45. 

000210B 


DELR=UAUE*DELTIM*12. 0 

4G. 

000212B 


R2=R1+DELR 

47. 

000214B 


TINE=TIt1E+DELTIM 
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43. 

00021GB 

IF ( IPRINT.E0.2) 

$URITE(G, 1 0 1 ) R1 , UU, A, U1 , DELU, U2, UAUE, DELR, R2, TIME 

43. 

00023GB 

101 FORMAT ( 1H , 7(F1 1 .4, 2X) , E10.4. 2X, F10.4, 2X, E10.4) 

50. 

00023GB 

U1=U2 

51. 

00023GB 

R1=R2 

52. 

000240B 

JJJ=JJJ+1 

53. 

00 024 IB 

UZTIME=UZ«TIME-"-12. 0 

54. 

000244B 

IFCTIME.GT.ENDTIM) GO TO 12 

55. 

000247B 

IF(JJJ.EQ.JJ) GO TO .12 

53. 

000250B 

GO TO 11 

57. 

000250B 

. 12 RETURN 

58. 

000254B 

END 


c 


1. 

000000B 


SUBROUTINE UICDMUC IPRINT, IRAD, AMASU1, AMASUT, AMASU, R1.R2, 
$STAREA. RSTAUE, DELMAS) 

2. 

OOOOOOB 


PAI=3. 1415326 

3. 

000000B 


RST1=RSTAUE 

4. 

000002B 


A1=STAREA 

5. 

000003B 


A2=P A I * ( R 1 *~2-R2**2 ) / 1 44 . 0 

G. 

000010B 


A2=A2*0.5 

7. 

00001 IB 


DMCENT =A2/A 1 -AMASU 

8. 

000013B 


IF (DMCENT.LT. 0.0) DMCENT=0. 0 

3. 

00001GB 


IF ( DMCENT. GT.AMASU) DMCENT=AMASU 

10. 

000021B 


IFCDMCENT.LT. 0.0) DMCENT=0.0 

11. 

000024B 


IF ( IRAD.EQ. 1 ) DMIN=0 . 0 

12. 

000027B 


IF ( IRAD. FQ. 1 ) DMOUT=DMCENT 

13. 

000031B 


IF( IRAD.EQ. 2) DMIN=DMCENT 

14. 

000034B 


IF( IRAD.EQ. 2) DMOUT=DMCENT 

15. 

000037B 


IFCIRAD.EQ.3) DMIN=DMCENT 

1G. 

000042B 


IFCIRAD.EQ.3) DMOUT=0.0 

17. 

000045B 


AMASU2=AMASU1+DMIN-BM0UT 

18. 

000047B 


I F ( AM ASU2 . LT . 0 . 0 ) AMASU2=0.0 

13. 

000052B 


IFCAMASU2.GT. AMASUT) AMASU2=AMASUT 

20. 

000055B 


DELMAS=AMASU2-AMASU1 

21. 

00005GB 


IFCIPRINT.EQ.2) NRITE(G»200) AM ASU 1 * AMASU2 > DM I N * DMDUT r DMCENT * 
$ AMASUT . AMASU , DELMAS 

22. 

000074B 


200 FORMAT ( 1H0* 8CF10. 5* 3X) ) 

23. 

000074B 


RETURN 

24. 

00007GB 

p 

END 




TTTTTTTTTTTTTTTTTTTTTTTTTTTT rTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 

1. 

OOOOOOB 


SUBROUTINE WICDMS( IPRINT, IRAD, AMASW1, AMASUT, AMASU, R1 , R2, STAREA. 
$RSTAUE, RTIP, DMIN, DMOUT , AMASU2, DELMAS) 



c 

AMASU 1: MASS FLOU RATE OF UATER IN A STREAM TUBE IN INTEREST 



c 

AMASUT: TOTAL MASS FLOU RATE OF UATER UHICH ENTER THE COMPRESSOR 



c 

AMASU: TOTAL MASS FLOU RATE OF UATER UHICH IS SUBJECT TO 



c 

CENTRIFUGAL FORCE 



c 

IRAD=1 : TIP 



c 

IRAD=2: MEAN 



c 

IRAD=3: HUB 

2. 

OOOOOOB 


PAI=3. 141532G 

3. 

OOOOOOB 


RST1=RSTAUE 

4. 

000002B 


A1=STAREA 

5. 

000003B 


A2=PAI*(R2**2-R1**2)/ 144.0 

G. 

000010B 


A2=A2«0.5 

7. 

00001 IB 


DMCENT=A2/A1* AMASU 

8. 

000013B 


IFCDMCENT.LT. 0.0) DMCENT=0.0 

3. 

00001GB 


I F ( DMCENT . GT . AMASUT ) DMCENT =AMASUT 

10. 

000021B 


IFCRl .GT.RST1 ) GO TO 110 


164 





C 

R1.LT.RST1 

11. 

000023B 


DMIN=DMCENT 

12. 

000023B 


DMOUT=DMCENT 

13. 

000024B 


GO TO 100 

14. 

000024B 


110 CONTINUE 



C 

R1.GT.RST1 

15. 

00002GB 


DMIN=0 . 0 

1G. 

00002GB 


DMOUT=DMCENT 

17. 

000027B 


100 IF ( IRAD.EO. 1 ) DMOUT=0.0 

18. 

000034B 


IF ( IRAD.EQ.3) DMIN=0.0 

19. 

000037B 


AMA3W2=AMASW1+DMIN-DM0UT 

20. 

000041B 


IFCAMASW2.LT. 0.0) AMASW2=0. 0 

21. 

000044B 


DELMAS=AMASW2-AMASW1 

22. 

000045B 


IF ( IPRINT. EQ. 2) WRITE(G,200) AMASW2, AF1ASW1 * EMIN. DMOUT » DMCENT * 
$AMASWT, AMASW, DELMAS 

23. 

OOOOG3B 


200 FORMAT ( 1H0, 8(F10. 5, 3X) ) 

24. 

0000G3B 


RETURN 

25. 

0000G5B 


END 



c 

+++++++++++++++++++++++-!-+++-!-++++++++++++++++++++++++++++++++++++++ 

1. 

OOOOOOB 


SUBROUTINE WICBMLC IPRINT, IRAD, AMASW1, AMASWT, AMASW, Rl, R2, STAREA, 
$RSTAUE,RTIP,DMIN, DMOUT, AMASW2, DELMAS) 



c 

AMASWUMASS FLOW RATE OF WATER IN A STREAM TUBE IN INTEREST 



-c 

AMASWT: TOTAL MASS FLOW RATE OF WATER WHICH ENTER THE COMPRESSOR 



c 

AMASW: TOTAL MASS FLOW RATE OF WATER WHICH IS SUBJECT TO 



c 

CENTRIFUGAL FORCE 



c 

IRAD=1 J TIP 



c 

IRAD=2: MEAN 



c 

IRAD=3: HUB 

2. 

OOOOOOB 


PAI=3.141592G 

3. 

OOOOOOB 


RST1=RSTAUE 

4. 

000002B 


A1=STAREA 

5. 

000003B 


A2=PAI*(R2**2-R1**2)/144.0 

G. 

000010B 


A2=A2“0.5 

7. 

00001 IB 


DMCENT =A2/A1 -»AMASW 

8. 

000013B 


IF (DMCENT.LT. 0.0) DMCENT=0 . 0 

9. 

00001GB 


IF ( DMCENT . GT . AMASWT ) DMCENT =AMASWT 

10. 

000021B 


IFCR1.GT.RST1) GO TO 110 

11. 

000023B 


DMIN=BMCENT 

12. 

000023B 


DMOUT=DMCENT 

13. 

000024B 


GO TO 100 

14. 

000024B 


110 CONTINUE 

15. 

00002GB 


DMIN=0 . 0 

1G. 

00002GB 


DMOUT=DMCENT 

17. 

000027B 


100 IF ( IRAD.EQ. 1 ) DMOUT=0.0 

18. 

000034B 


IF C IRAD.EQ.3) DMIN=0.0 

19. 

000037B 


AMASW2=AMASW1+DMIN-DM0UT 

20. 

000041 B 


IF (AMASW2.LT. 0.0) AMASW2=0.0 

21. 

000044B 


DELMAS=AMASW2-AMASW 1 

22. 

000045B 


IF( IPRINT. EG. 2) WRITE(G,200) AMASW2, AMASW1, DMIN, DMOUT, DMCENT, 
$ AMASWT, AMASW, DELMA5 

23. 

0000G3B 


200 FORMAT ( 1H0, 8CF10.5, 3X) ) 

24. 

0000S3B 


RETURN 

25. 

0000G5B 


END 



c 

+++++++++++++++++++-.'-++++++++++++++++++++++++++++++++++++++++++++++ 

1. 

OOOOOOB 


SUBROUTINE WICDRGCD, DELU1 , RHGAS1 , RHGAS2, CD2, DELU2, DRAG1, RE) 

2. 

OOOOOOB 


REAL N,N1 

3. 

OOOOOOB 


GC=32. 174 

4. 

000002B 


IP=1 
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5. 

000004B 

UISC0G=12. OE-6 

G. 

000005B 

PAI=3. 1415927 

7. 

00000GB 

IF(B.GT.O.O) GO TO 300 

8. 

00001 IB 

CD2=0 . 0 

9. 

000011B 

DELU2=0. 0 

10. 

000012B 

DRAG1=0. 0 

11. 

000013B 

RE=0. 0 

12. 

000013B 

GO TO 301 

13. 

000014B 

300 RE1 = CRHGAS1--D*BELU1)/UISC0G 

14. 

000017B 

RE=RE1 

15. 

000020B 

Bll=0.44 

16. 

000021B 

N1=0 . 0 

17. 

000022B 

IFCRE.LT. 1.9) B1 1=24. 0 

18. 

000027B 

IFCRE.LT. 1.9) Nl = l . 0 

19. 

000032B 

IFCRE.GT. 1 .9. AND.RE.LT .500.0) B1 1=18.5 

20. 

000037B 

IFCRE. GT. 1 . 9. AND.RE.LT .500.0) N1=0.S 

21. 

000044B 

CD1=B11/CRE1**N1) 

22. 

00004.6B 

DRAG 1 =0 . 5-RHG AS 1 * C DELU 1 * «2 ) * C PA I »D**2 ) *CD 1 
$/GC 

23. 

00005GB 

DAMY=DRAGl“GC/CCDl-”-0 . 5*RKGAS2»CPAI*D**2) ) 

24. 

000065B 

IFCIP.E0.2) URITEC6.200) D,DELU1,RHGAS1.RHGAS2,RE1,B11»N1, 
$CD1 s. DRAG1 s DAMY 

25. 

000105B 

200 FORMAT C 1H0 . 10CF10.5.2X)) 

2G. 

000105B 

DELU2=S0RT ( DAMY ) 

27. 

000107B 

RE2=RHGAS2*D*DELU2/U I SCOG 

28. 

0001 1 IB 

Bl=0.44 

29. 

0001 13B 

N=0. 0 

30. 

000114B 

IFCRE2.LT. 1.9) Bl=24.0 

31. 

000120B 

IFCRE2.LT. 1.9) N-1.0 

32. 

000123B 

IFCRE2.GT. 1.9. AND. RE2.LT. 500.0) Bl=18.5 

33. 

000130B 

1FCRE2.GT. 1.9. AND. RE2.LT. 500.0) N=O.G 

34. 

000135B 

CD2=B 1 / C RE2«-~‘N ) 

35.. 

000137B 

IFCIP.EQ.2) WRITECG.101) RE1,B11,N1,CD1,DELU1,RE2,B1,N,CD2» 
$DELU2 

3G. 

000160B 

101 F0RMATC1H0.2X, 10CF10.5.2X)) 

37. 

0001G0B 

RE=CREl+RE2)/2.0 

38. 

0001G2B 

301 RETURN 

39. 

0001G5B 

END 

C +++++++++++-:-++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1 . 

OOOOOOB 

SUBROUTINE WICSIZC WMASSL, WMASSS, AMING1 , AMING2. AMING3, DL, DS» D1 , D2, 
SD3. DLIMIT, AMSLL, AMLGE, DSLL, BLGE) 

2. 

OOOOOOB 

TMASS1=WMASSL+WMASS3+AMING1+AMING2+AMING3 

3. 

000004B 

AML=0. 0 

4. 

000005B 

AMS=0. 0 

5. 

000005B 

IF C DL . GT . DLIMIT ) AML=AML-:-WMASSL 

G. 

000013B 

I F C DL . LT . DL IM IT ) AMS=AMS-:-WNASSL 

7. 

000017B 

IFCDS.GT.DLIMIT) AML=AML+UMASSS 

8. 

000023B 

IFCDS.LT.DLINIT) AMS= AMS-:-WN ASSS 

9. 

000027B 

IFCD1.GT. DLIMIT) AML=AML-:-AMINGl 

10. 

000033B 

IFCD1 .LT. DLIMIT) AM3=AMS+AMING1 

11. 

00003GB 

IFCD2.GT. DLIMIT) AML=AML-i-AMING2 

12. 

000041B 

I F C D2 . LT . DL I M I T ) AM3= AMS+ AM I NG2 

13. 

000044B- 

IFCD3.GT. DLIMIT) AML=AML+AMING3 

14.. 

000050B 

IFCD3.LT. DLIMIT) AM3=AMS-:-AMING3 

15. 

000054B 

TMASS2=AML+AMS 

1G. 

000055B; 

ERROR=ABS C TMASS 1 -TMASS2 ) 

17. 

000057B 

IFCERROR.LT. l.OE-G) GO TO 100 

18. 

0000G2B 

IFCTMASS2.LT. l.OE-G) GO TO 100 

19. 

0000G4B 

TT=TMASS!./TMASS2 
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20. 

0000G5B 

21. 

000071B 

22. 

000074B 

23. 

000077B 

24. 

000102B 

25. 

000102B 

26. 

000104B 

27. 

000105B 

28. 

000105B 

23. 

000114B 

30. 

000122B 

31. 

000131B 

32. 

000140B 

33. 

000147B 

34. 

000156B 

35. 

000165B 

36. 

000174B 

37. 

000203B 

38. 

000212B 

33. 

000212B 

40. 

000214B 

41. 

000221B 

42. 

000225B 

43. 

000227B 

1 . 

OOOOOOB 


2. 

OOOOOOB 

3. 

OOOOOOB 

4. 

000002B 

5. 

000003B 

6 . 

000007B 

7. 

000011B 

8. 

000012B 

3. 

000020B 

10. 

000036B 

11. 

000042B 

12. 

000043B 

13. 

00004GB 

14. 

000050B 

15. 

000053B 

1 . 

OOOOOOB 

2. 

OOOOOOB 

3. 

000002B 

4. 

000003B 

5. 

000005B 

6. 

OOOOOGB 

7. 

OOOOiOB 

8. 

00001 IB 

3. 

000013B 

10. 

000023B 

11. 

000025B 

12. 

000030B 


IFCTT.LT. 1.0) AML=AML/TT 
IFCTT.LT. 1.0) AMS=Ai’;3/TT 
IFCTT.GT.1.0) AML=AML«TT 
IFCTT.GT. 1.0) AMS=AM3*TT 
100 AMLGE=AML 
At15LL=AMS 
ADL=0. 0 
ADS=0. 0 

IF ( DL . GT . DL IMI T . AND . AML . GT . 0 . 0 ) ADL= 
I F ( DL . LT . DL I M I T . AND . AMS . GT . 0 . 0 ) ADS= 
IFCDS.GT. DLIMIT. AND. AML. GT. 0. 0) ADL= 
IFCDS. LT. DLIMIT. AND. AMS. GT. 0.0) ADS= 
IFCD1 . GT. DLIMIT. AND. AML . GT. 0 . 0 ) ADL= 
IFCDl.LT. DLIMIT. AND. AMS.GT.O.O) ADS= 
IFCD2. GT. DLIMIT. AND. AML. GT. 0.0) ADL : 
IFCD2.LT.DLIMIT. AND. AMS.GT.O.O) ADS= 
IF C D3 . GT . DL IM I T . AND . AML . GT . 0 . 0 ) AEL= 
IFCD3.LT. DLIMIT. AND. AMS.GT.O.O) ADS= 
DLGE=ADL 
DSLL=ADS 

IF C DL . GT . 0 . 0 . AND . DLGE . GT . DL ) DLGE=DL 
IF C DS . GT . 0 . 0 . AND . DSLL . GT . D3 ) D5LL=DS 
RETURN 
END 

C +++++++++++++++++++ 


ADL+DL» ( WMASSL/AML ) 
ADS+DL*(UMASSL/AMS) 
ADL+DS* C UMASSS/AML ) 
ADS+DS* C WMASSS/AMS ) 
ADL+D1*( AM ING 1/AML) 
ADS+D1*( AMING1/AMS) 
ADL+D2* C AMING2/AML) 
ADS+D2»C AMING2/AMS) 
ADL+D3* C AM ING3/AML ) 
ADS+D3* CAM I NG3/AMS ) 


SUBROUTINE UICPRPCXAIR, XK20, XCH4, T, RMIX, CPMIX, GAMMA, G1 , G2, G3) 

C T IN R 

C CPMIX IN BTU/LBM-R 

C RMIX IN LBF-FT/LBM-R 

RAIR=1545. 3/28. 3S4 
RH20=1545. 3/18. 016 
RCH4=1545. 3/16. 043 
XXAIR=XAIR/CXAIR+XH20+XCH4) 

XXH20=XH20/ ( XAIR+XH20+XCH4 ) 

XXCh'4=XCH4/CXAIR+XH20+XCH4 ) 

RM 1 X=XXA I R*R A I R +XXH20»RH20+XXCH4»RCH4 
CPMIX=XXAIR^mCCPACT)+XXH20*LIICCPHCT)+XXCH4*UICCPCCT) 

GAMMA=1 .0/(1. 0-RMIX/CPMIX/778. 0) 

Gl=GAMMA/( GAMMA-1.0) 

G2=( GAMMA-1. 0)/2.0 
G3=- 1.0/ (GAMMA- 1.0) 

RETURN 

END 


FUNCTION WICCPACT) 

C T IN R 

C CPAIR IN BTU/LBM-R 
TK=5.0/3,0*T 
A=3. 65353 
B=-l . 3373GE-3 
C=3. 23421E-6 
D=-l .31 142E-9 
E=0 . 275462E-12 
R=8314. 3/20. 364 

CP= ( A+B- :f TK+C*TK-**2+D*TK- :; *3-i-E*TK**4 ) *R 

mCCPA=CP---2. 3885E-4 

RETURN 

END 
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C +++++++++++++++++++++++T+++++++++++++++++++++++++++++++++++++++++++++ 


1. 

000000B 


FUNCTION UICCPH(T) 



C 

T IN R 



C 

CPH20 IN BTU/LBM-R 

2. 

OOOOOOB 


TK=5. 0/9. 0---T 

3. 

000002B 


8=4.07013 

4. 

000003B 


B=-l . 10845E-3 

5. 

000005B 


C=4. 15212E-G 

G. 

OOOOOGB 


D=-2. 96374E-9 

7. 

000010B 


E=0. 80702 IE- 12 

8. 

000011B 


R=8314. 3/18. 016 

9. 

000013B 


CP= ( A+B“-TK+C*TK*»2+D*TK*« 3+E*TK**4 ) *R 

10. 

000023B 


UICCPH=CP*2.3e85E-4 

11. 

000025B 


RETURN 

12. 

000030B 


END 



C 

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + -!• + + + + + + + + + + + + + + + + + + + ++ + + + + + + + + + + + + +++ + + + + 

1. 

OOOOOOB 


FUNCTION UICCPC(T) 



C 

T IN R 



C 

CPCH4 IN BTU/LBM-R 

2. 

OOOOOOB 


TK=5.0/9.0*T 

3. 

000002B 


A=3. 82G19 

4. 

000003B 


B=-3. 9794GE-3 

5. 

000005B 


C=24.5583E-G 

G. 

OOOOOGB 


D=~22. 7329E-9 

7. 

000010B 


E=G.9G270E-12 

8. 

00001 IB 


R=8314.3/16. 043 

9. 

000013B 


CP= ( A+B*TK+C-nK»*2+D*TK*<^E»TK**4 ) *R 

10. 

000023B 


WICCPC=CP«2. 3885E-4 

11. 

000025B 


RETURN 

12. 

000030B 


END 



C 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

1. 

OOOOOOB 


SUBROUTINE WICGSLC SIGUMA, BET IS. BET2S, AINCIS. ADEUI5, AMACH1 , 
1BET1, DEGS, DEQN, SITACS, SITACN, BET2N, OMEGAN, X. AK1 , AK2, AK3 
2fUZl.UZ2rURl.Rl.R2) 

2. 

OOOOOOB 


AINCI=BET1-EET1S+AINCIS 

3. 

000002B 


EET2A=BET2S 

4. 

000003B- 


X1=BET2A 

5. 

000004B 


DELDEQ=WICED( AK3, UZ1 . UZ2. UR1, R1 , R2. EET1. XI. SIGUMA. AINCIS. AINCI ) 
$-DEQ3 

G. 

000021B 


ADEUI=ADEUIS+(G.40-9.45*AMACH1+S.45*X)*DELDEQ»AK1 

7. 

000030B 


IF C AMACH 1 . LT . X ) ADEUI=ADEUI S+G . 40*DELDEQ*AK 1 

8. 

000035B 


BET2C=BET2S-ADEUIS+ADEUI 

9.. 

000037B . 


Y1=BET2C 

10. 

000040B 


N=1 

11. 

000041B 


12 IF(N.GT.l) GO TO 10 

12. 

000043B 


BET2A=BET2S*1 . 1 

i3. 

000045B 


10 X2=BET2A 

14. 

00004GB 


DEQN=WICED( AK3. UZ1, UZ2, UR1 , R1 , R2, BET1. X2, SIGUMA, AINCIS, AINCI ) 

15. 

0000G2B 


DELDEQ=DEQN-DEQS 

1G. 

OOOOG3B 


ADEUI=ADEUIS+(6.40-9.45*AMACHl+9.45«X)*DELDEQ*AKl 

17. 

000072B 


I F ( AMACH 1 . LT . X ) ADEU I =ADEU I S+ G . 4 0*DELDEQ* AK 1 

18. 

000077B 


BET2C=BET2S-ABEUIS+ADEUI 

19. 

000101B 


Y2=BET2C 

20. 

000102B 


DELBET=ABS( (X2-Y2)/X2) 

21. 

000104B 


EPS=1 . OE-G 

22. 

000105B 


iFCDELBET.LE.EPS) GO TO 11 

23. 

000107B ■ 


BET2A=WICNEW(X1,Y1,X2,Y2) 
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24. 

00011 IB 


X1=X2 

25. 

000112B 


Y1=Y2 

26. 

000113B 


N=N+1 

27. 

000115B 


IF (N.GT.50) GO TO 13 

28. 

000117B 


GO TO 12 

23. 

000120B 

11 

BET2N=X2 

30. 

000120B 


GO TO 14 

31. 

000122B 

13 

WRITECG, 201 ) 

32. 

000125B 

201 

FORMAT ( 1H0, ^DO NOT CONUERGEZ) 

33. 

000125B 


GO TO 15 

34. 

000125B 

14 

SITACN=WICMTK(SITAC5* AMACH1 , DELDEQ* AK2) 

35. 

000133B 


0MEGAN=WICL0S(BET1* EET2N, SIGUMA, SITACN) 

3G. 

000141B 

15 

RETURN 

37. 

000144B 


END 


C+++++++++ 


1 . 


2 . 


4. 

5. 

G. 

7. 

8 . 
3. 

10 . 

11 . 

12 . 

13. 

14. 

15. 


000000B 

OOOOOOB 
OOOOOOB 
000002B 
000005B 
OOOOOGB 
000007B 
00001 IB 
000014B 
000027B 
000031B 
000034B 
00003GB 
00U045B 
000050B 


SUBROUTINE UICSDLCCKORD. SIGUMA, BETA1, BETA2. UG, RHOG* 
SAMASSW, AREA* UZ* OMEGAP) 

PAI=3. 141532G 
RHOGO=RHOG 

RHOPO=AMASSW/AREA/UZ 
RR=RK0P0/RH0G0 
UISC0G=0. 128E-4 


C=CHORD/12.0 

RE=UG«C*RHOGO/UISCOG 

DELC=0 . 37/ ( RE**0 . 2 ) / (1 . 0+ 1 . 442-RR ) **0 . 8 
DELP=0 . 1402*DELC 
BETA1R=BETA1*PAI/180.0 
BETA2R=BETA2*PAI/180.0 

OMEG AP=DELP*2 . 0*S I GUMA/COS ( BETA2R ) * ( COS ( BET A 1 R ) /COS ( BETA2R ) ) «*2 

RETURN 

END 


C+++++++++++++++++++-I 


K-T+++++++++ 


1. 


2. 

3. 


4. 

5. 
G. 


OOOOOOB 


OOOOOOB 

OOOOOOB 


OOOOOOB 

000002B 

000004B 


SUBROUTINE WICSTLC ISTAGE, IROTOR* DAU* HI * W2* DELU, UP* U3, WMASS, UZ* N 
$> BETA1 * BETA2, ALFA2* ALF A3 * DELUU2 * DELUL2 * 

$OMEGRU. ONEGRL, ONEGSU, OMEGSL* DRAGRU* DRAGRL, DRAGSU, DRAGSL, REAUE) 

C IROTOR=.l ROTOR 
C IR0T0R=2 STATOR 
REAL M.MHASS 

COMMON JPERFM, RH0G(3) * RERUP, RERLOU* RESUP* RESLOW 
PREB, RRTIPC20 ) , SRTIPC20 ) , AAAI, AAA2, AAA3, SAREAC20 ) . SAREASC20) 
-,P(3),TG(3),XA,XUC3),XCH4*XW(3),XWW(3)*XWT(3),TWC3)*TUU(3) 

OMEGS(20 ) , 0MEGRC20) , GAPRC20 ) , GAPS (20) . 

~* RRHUBC20 ) , RCC201 . RBLADEC20) , STAGERC20) 

-.SRHUBC20) , SC(20) * SBLADE ( 20 ), STAGES (20 ) 

-,SIGUMR(20) , BET1SRC20) , BET2SRC20) , AINCSRC20) * ADEUSRC20) 
-,SIGUMS(20) , BET1SSC20) , BET2SSC20) , AINCSSC20) * ADEUSSC20) 
UTIPGC20 ) , UTIPC20) , UTIPDC20 ) , UOUC20 ) , UMEANC20 ) * UHUB(20) * U(20) * FAI 
AREA(20), AREAS(20),UU2(20)*UTIP2(20),UMEAN2(£0)*UHUB2(20)* I PRINT 
ICENT, IICENT,FMR1(20)*FMA2(20), IDESIN*FAID 
~* NS* NSF , NSLPC, BYPASS* NS1 > RT (20) * RM(20) » RH(20) > ST (20) >SM(20) * SH(20) 
DSMASS* AAREA ( 20 ) * AAREAS ( 20 ) , PR12D ( 20 ) * PR13D ( 20 ) * ETARD ( 20 ) 

•^ * DR ( 20 ) * DS ( 20 ) > DEQR ( 20 ) * DEQS ( 20 ) * BLOCK ( 20 ) , BLOCKS ( 20 ) 

~* BETlMR(eO) , BET2MRC20 ) > BET IMS (20) * BET2MS(20) , RADI 1 (20) , RADI2(20) 
-,FAIRIN(20).FAIOUT(20)*ETASG(20),PSID(20),TAUB(20)*SITADR(20) 

, SITADS ( 20 ) , UWD ( 20 ) , UUD (20 ) 

PAI=3. 1415327 
GC=32. 174 
RH0U=G2 . 3 


169 



C +++++++++++++4 


*■++++++++ 


7. 

000005B 


IF( I ROTOR. EO. 2) GO TO 100 



C DROPLET DRAG IN ROTOR 

8. 

000010B 


DD=DAU*1.0E-6*3.28 

S. 

000012B 


ugi=wi 

10. 

000014B 


UP1=UG1-DELU 

11. 

00001GB 


A 1 =UMASS*RC ( I STAGE ) / 1 2 . 0 /UZ 

12. 

000022B 


A2=RH0U~4 . 0/3 . 0*PA I* ( DD/2 . 0 ) **3 

13. 

000030B 


TN=0.0 

14. 

000031B 


IF(UMASS.GT.O.O) GO TO 2000 

15. 

000034B 


GO TO 2001 

1G. 

000034B 

2000 

TN=A1/A2 

17. 

00003GB 

2001 

UAUE=(Wl+W2)/2. 0 

18. 

000041B 


GNU1=C90 . 0-BETA1 )/2. 0-»PAI/180. 0 

19. 

000045B 


DELUU1=UG1-UP1---C0S(GNU1 ) 

20. 

000052B 


IFCN.GT.2) DELUU1=DELUU2 

21. 

00005GB 


TNU=TN* (180. 0-BETA1 -BETA2 ) /3G0 . 0 

22. 

0000G2B 


XWW(2)=XNW( 1 ) 

23. 

0000G3B 


XUT!2)=XUT ( 1 ) 

24. 

0000G4B' 


XU(2)=XU( 1 ) 

25. 

OOOCGGB 


CALL UICPRPCXA, XU(2) , XCH4, TG(2) , RMIX, CPMIX, GAMMA, Gl, G2, G3) 

2G. 

000071B 


IFCIPRINT.E0.2) URITEC6, 4000) 

27. 

00007GB 

4000 

FORMAT ( 1H0, /DROPLET DRAG IN ROTOR (UPPER PART)/) 

28. 

00007GB 


CALL WICDRG(DD, DELUU 1 , RHOG ( 1 ) , RHOG ( 2 ) , CD2, DELU2, DRAG 1 , RE ) 

29. 

000100B 


DELUU2=DELU2 

30. 

000100B 


CDRU=CD2 

31. 

000102B 


RERUP=RE 

32. 

000103B 


DRAGRU=DRAG1*TNU 

33. 

000105B 


AREAl=PAI«(RRTIP(ISTAGE)^-“2-RRHUB(ISTAGE)**2)/144. 0/10.0 

34. 

000112B 


DELPRU=DRAGRU/AREA1 

35. 

000113B 


OMEGRU=DELPRU/(0.5*RHOG(1)/GC»U1»*2) 

3G. 

000120B 


CDRUU=CDRU*DELUU2*»2»PAI/4. 0*DD**2»TNU/UAUE*»2/RC( ISTAGE)»12. 0 

37. 

000131B 


GML1=(30. 0+BETA1 )/2. 0*PAI/180 . 0 

38. 

00013GB 


DELUL1=UG1-UP1*C0S(GML1 ) 

39. 

000143B 


IF (N.GT.2) DELUL1=DELUL2 

40. 

000147B 


TNL=TN» ( 180 . 0+BETA 1 +BETA2 ) /360 . 0 

41. 

000153B 


IF( IPRINT.E0.2) URITECG, 4001 ) 

42. 

0001G0B 

4001 

FORMAT! 1H0, /DROPLET DRAG IN ROTOR (LOWER PART)/) 

43. 

OOOIGOB ; 


CALL WICDRG( DD, DELUL1 > RHQG( 1 ) , RH0GC2), CD2, DELU2, DRAG1 , RE) 

44. 

0001G2B 


DELUL2=DELU2 

45. 

0001G2B 


CDRL=CD2 

4G. 

0001G4B 


RERLOU=RE 

47. 

0001G5B 


DRAGRL=DRAG1*TNU 

48. 

0001G7B 


DELPRL=DRAGRL/AREA1 

49. 

000171B 


OMEGRL=DELPRL/ ( 0 . 5*RH0G ( 1 ) /GC*U 1«*2 ) 

50. 

000175B 


CDRLL=CDRL*DELUL2**2*PAI/4.0*DD**2*TNL/UAUE**2/RC(ISTAGE)*12.0 

51. 

000207B 


IF ( IPRINT.EQ.2) URITECG, 2002) 

52. 

000215B 

2002 

FORMAT! 1 HO, /DROPLET DRAG SUMMARY/) 

53. 

000215B 


IF ( IPRINT . EQ . 2 ) URI TE ( G, 720 ) DELUUI , DELUU2, DELUL1 , DELUL2, CDRU, CD 



SRUU, CDRLt CDRLL 



$* DRAGRU, DRAGRL 

54. 

000234B 

O 

ru 

FORMAT! 1H0,10(F10.5,2X)) 

55. 

000234B 


RUP1=(90. 0-BETA1 )/180 . 0 

5G. 

00023GB 


RLOW1=(90 . 0+BETA 1 )/180. 0 

57. 

009237B 


RUP2=(90.0-BETA2)/180.0 

58. 

000241B 


RL0W2= ( 90 . 0+BETA2 ) /.1 80 . 0 

59. 

000242B 


REAUE=RERUP* ( RUP 1 +RUP2 ) -0 . 5+RERLOW* ( RLOU1 +RL0W2 ) *0 . 5 

GO. 

000252B 


IFCIPRINT.E0.2) URITECG, 2010) RUP1 , RUP2, RL0W1 , RL0U2 

Gl. 

0002G4B 

2010 

FORMAT! 1H0,4(F10. 5, 2X)) 

G2. 

0002G4B 


GO TO 200 
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c +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

C DROPLET DRAG IM STATOR 


63. 

000264B 

100 

DD=DAU*l.CE-6*3.28 

64. 

000267B 


UG1=U1 

65. 

000270B 


UP1=UG1-DELU 

66. 

000272E 


A 1 =UMASS-SC ( I STAGE ) / 1 2 . O/UZ 

67. 

000276B 


A2=RH0U*4 . 0/3 . 0 ; >PAI * ( DD/2 . 0 ) **3 

68. 

000304B 


TN=0.0 

69. 

000305B 


IF(WMASS.GT.O.O) GO TO 5002 

70. 

000310B 


GO TO 5003 

71. 

000310B 

5002 

TN=A1/A2 

72. 

000312B 

5003 

UAUE=(U3+U2)/2.0 

73. 

000315B 


DELUU1=DELUU2 

74. 

000316B 


TNU~TN*( 180. 0-ALFA2-ALFA3)/360 . 0 

75. 

000323B 


IF ( IPRINT. EQ. 2) WRITE(G,2005) 

76. 

000332B 

2005 

FORMAT ( 1H0* *DROPLET DRAG IM STATOR (UPPER PART)*) 

77. 

000332B 


CALL NICDRG ( DD, DELUU1 , RHOG ( 2 ) , RHOG (2) . CD2* DELU2. DRAG1 , RE ) 

78. 

000334B 


DELUU2=DELU2 

79. 

000334B 


CDSU=CD2 

80. 

000336B 


RESUP=RE 

81. 

000337B 


DRAGSU=DRAG1-»TNU 

82. 

000341B 


AREA2=PAI*(SRTIP(ISTAGE)*“2-SRHUB(ISTAGE)»*2)/144. 0/10.0 

83. 

000346B 


DELPSU=DRAGSU/AREA2 

84. 

000347B 


OMEGSU=DELFSU/ ( 0 . 5*RH0G ( 2 ) /GC *U2**2 ) 

85. 

000354B 


CDSUU=CDSUj:-DELUU2**2*PAI/4.0*DD**2*TNU/UAUE**2/SC(ISTAGE)*12.0 

86. 

0003S5B 


DELUL1=DELUL2 

87. 

000367B 


TNL=TN* ( .180 . 0+ALFA2+ALFA3)/360 . 0 

88. 

000374B 


IF ( IPRIMT.EQ.2) WRITE(6, 2006) 

89. 

000402B 

2006 

FORMAT (1HO,*DROPLET DRAG IN STATOR (LOWER PART)*) 

90. 

000402B 


CALL WICDRG(DD, DELUL1 > RH0G(2) » RH0G(2) » CD2, DELU2, DRAG1 » RE) 

91. 

000404B 


DELUL2=DELU2 

92. 

000404B 


CDSL=CD2 

93. 

000406B 


RESLOW=RE 

94. 

000407B 


DRAGSL=DRAG1*TNL 

95. 

00041 IB 


DELPSL=DRAGSL/AREA2 

96. 

000413B 


OMEGSL=DELPSL/ ( 0 . 5*RH0G ( 2 )/GC»U2**2 ) 

97. 

000417B 


CD5LL=CDSL-~-DELUL2**2*PAI/4. 0*DD**2*TNL/UAUE**-2/SC( I STAGE) *12. 0 

98. 

000431B 


IF ( IPRINT.EQ.2) WRITE(6, 2007) 

99. 

000437B 

2007 

FORMAT ( 1H0? *DROPLET DRAG IN STATOR (SUMMARY)*) 

100. 

000437B 


IF( IPRINT.EQ. 2)WRITE(6, 721 ) DELUU1, DELUU2, DELUL1, DELUL2, CDSU, CD 



$SUU, CDSL, CDSLL 




DRAGSU, DRAGSL 

101. 

000456B 

721 

FORMAT (1H0»10(F10.5,2X)) 

102. 

00045GB 


SUP1 = (90. 0~ALFA2)/180. 0 

103. 

000460B 


SLOW1=(90.0+ALFA2)/130.0 

104. 

000461B 


SUP2= ( 90 . 0-ALFA3 ) / 180 . 0 

105. 

000463B 


SLOW2=(90.0+ALFA3)/180.0 

106. 

0004G4B 


REAUE=RESUP* ( SUP 1 +SUP2 ) *0 . 5+RESLOW* ( 5L0W1 +SL0W2 ) *0 . 5 

107. 

000474B 


IF(IPRINT.EQ.2) WRITE(6, 201 1 ) 5UP1 > SUP2* SLOW1 » SL0W2 

108. 

00050GB 

2011 

FORMAT (1H0»4(F10.5,2X) ) 

109. 

00050GB 

200 

RETURN 

110. 

000510B 

P 4.4.4.. 

END 

1. 

OOOOOOB 


SUBROUTINE WICFML(WG1 , UG2, FMASS, RHOG1, CHORD, SIGUMA, EETAl, EETA2, 



$CBF,OMEGAF) 

2. 

OOOOOOB 


PAI=3. 141592G 

3. 

OOOOOOB 


UISCOG=0. 128E-4 

4. 

000002B 


UISCOL=G. 500E-4 

5. 

000003B 


C=CH0RD/12.0 
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G. 

000005B 

UGAUE=0.5*CUG1+UG2) 

7. 

000010B 

UF I LM=0 . 5-::-WGAUE«U I SCOGAJ I SCOL 

8. 

000013B 

CDF=FMASS--UF I L M/ ( 0 . 5*RH0G 1 *UIG 1 *UG 1 *C ) 

9. 

000021B 

BETA1R=BETA1*FAI/180 . 0 

10. 

000024B 

BETA2R=BETA2-“-PAI/180 . 0 

11. 

00002GB 

BETA3R=0 . 5* ( BETA1R+BETA2R ) 

12. 

000030B 

CS1=C0S(BETA1R)**2 

13. 

000032B 

CS2=C0SCBETA3R)**3 

14. 

000035B 

OMEGAF=CDF*SI GUMA*CS 1/CS2 

15. 

000041B 

RETURN 

1G. 

000043B 

r 

END 

1. 

L 

OOOOOOB 

SUBROUTINE UICRSLCSIGUMA, BETA1 , BETA2. CHORD, DL, CDR, OMEGAR) 

2. 

OOOOOOB 

PAI=3. 1415926 

3. 

OOOOOOB 

IFCDL.LT. 1.0E-G) CDR=0. 0 

4. 

000005B 

IFCDL.LT. 1.0E-G) OMEGAR=0. 0 

5. 

000007B 

IFCDL.LT. 1.0E-G) GO TO 10 

G. 

000010B 

BETA 1R=BETA1*PAI/ 180 . 0 

7. 

000012B 

BETA2R=BETA2*FAI/180.0 

8. 

000013B 

BETA3R=0 . 5* C BETA1R+BETA2R ) 

9. 

000015B 

CS1=C0SCEETA1R)**2 

10. 

000020B 

CS2=C0S(EETA3R)*«3 

11. 

000023B 

C=CH0RD*2 . 54* 0 . 0 1 * 1 . OEG 

12. 

000027B 

A=C/DL 

13. 

000031B 

IFCA.LT. 100.0) A=100. 0 

14. 

000034B 

CDR= 1 . 89-M . G2-ALOG10 C A ) 

15. 

000040B 

CDR=1.0/CDR**2.5 

16. 

000044B 

OMEG AR=CBR-S I GUM A- CS 1 /CS2 

17. 

000047B 

10 RETURN 

18. 

000053B 

END 


!■*+++' ++++++++++++++++++++++++++++++++++++++ 


C ++++++++++++++++++-1 


1. OOOOOOB 

2 . oooooob 

3. OOOOOOB 


4. OOOOOOB' 

5. OOOOOOB 

6. 000032B 

7. 000034B- 

8. 000035B 

3. 000037B 

10. 000040B 


SUBROUTINE WICSPDCAMASS, ISTAGE) 

REAL M* MIN, Ml » M2, M1REL, M2REL 

COMMON JPERFM, RH0GC3) , RERUP, RERLOW, RESUP, RESLOUI 
- , PREB , RRT I P C 20 ) , SRT I P C 20 ) , AAA 1 , A A A2 , A AA3 , S AREA C 20 ) * SAREAS C 20 ) 
~,PC3),TGC3)»XA,XUC3), XCH4 « XU C 3 ) , XUU C 3 ) , XUT C 3 ) , TU C 3 ) , TUU C 3 ) 

~> QMEGSC20 ) * OMEGRC20 ) , GAPRC20 ) , GAPS ( 20 ) 

~,RRHUBC20) , RCC20 ) , RBLADEC20) , STAGERC20) 

-.SRHUBC20) , SCC20) , SBLADE(20 ) , STAGESC20 ) 

~,SIGUMRC20) , BET1SRC20 ) , BET2SRC20) , AINCSR(HO) , ADEUSRC20) 
-.SIGUMSC20) , EET1SS(20 ) , BET2SSC20) , AINCSSC20) , ADEU5SC20) 
~,UTIPGC20),UTIPC20'),UTIPD(20),UOUC20),UMEAN(20),UHU3C20),U(20),FAI 
AREA (20 ) , AREAS (20 ) * UU2(20) , UTIP2C 20) , UMEAN2C20) , UHUB2C20) , IPRINT 
ICENT, IICENT , FMR1 (20 ) * FMA2C20 ) , IDE5IN. FAID 

NS, NSF , NSLPC> BYPASS* NS1 , RTC20 ) , RMC20) , RHC20 ) » STC20) , SMC20 ) , SHC20 ) 
DSMASS, AAREAC20 ) , AAREASC20) , PR12DC20 ) . PR13DC20) , ETARDC20) 

DR(20 ) . DSC20 ) . DEORC20) > DEQSC20 ) > BLOCK C 20 ) , BLOCKS (20 ) 

BET 1 MR C 20 ) . BET2MRC20 ) . BET1MS( 20) > BET2MS(20 ) * RADII (20) . RADI 2 C 20) 
^.FAIRIN(cO). FAIOUTC20 ) . ETASGC20) . PSIDC20) , TAUD(20) . SITADEC20) 

SI TADS (20 ) * UUDC20) , UUDC20) 

DIMENSION TDC20) 

AJ=778.26 
AMASSS=Ai1ASS 
PAI=3. 141592S 
GC=32. 174 
TREF=518. 70 
PREF=14. 7*144.0 
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11 . 

12 . 

13. 

14. 

15. 

1G. 

1 7. 
18. 

19. 

20 . 
21 . 
22 . 

23. 

24. 

25. 
2G. 

2 7. 
28. 

29. 

30. 

31. 

/ 

32. 

33. 

34. 

35. 


3G. 

37. 


38 . 

39. 

40. 

41. 

42. 

43. 

44. 

45. 
4G. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 
5G. 


000042B 

000047B 

0000G1B 

0000G3B 

OOOOGGB 

000073B 
000073B 
000075B 
000076B 
000100B 
0G0101B 
0001 10B 
000114B 
000117B 
000120B 
000121B 
000122B 
000123B 

000124B 

000127B 

000133B 

000133B 

00013GB 

00013SB 

00014GB 


00014GB 

000157B 


000157B 

000157B 

000157B 

0001G1B 

0001G2B 

0001G4B 

000170B 

000171B 

000177B 

000204B 
000204B 
00020GB 
000207B 
00021 IB 
000212B 
000221B 
000225B 
000230B 
000235B 


AAAR1T=PAI*CRRTIPC1 )**2-RRHUBC 1 )**2)/144. 0*BLOCKC1 ) 
CMA3S=AMASS*SQRTC TGC 1 )/TREF)/CPC 1 )/PREF)*AAARlT/SAREA( 1 ) 

C IGU INLET 

ISTAGE=NS1 

CALL WICPRPC 1 . 0. 0. 0. 0. 0, TG( 1 ) , RMIX, CPMIX, GAMMA, Gl, G2, G3) 

CALL WICMACC ISTAGE, AMASS, TGC 1 ) , P( 1 ) , M, UZ, C, 0. 0, 0. 0, RMIX, CPMIX, 
SAREASCNS1) ) 

U2IN=U2 
AIN=C 
MIN=M 
TOIN=TGC 1 ) 

POIN=P( 1 ) 

PSIN=PC 1)/C 1 . 0 +G2»M**2 ) «*G 1 
TSIN=TG(1)/C1.0+G2*M**2) 

RHOGIN=PSIN/RMIX/TSIN 
FAI IN=U2IN/UTIPG( 1 ) 

FAID=FAI IN 
GAMAIN=CAMMA 
TOIN=TG( 1 ) 

POIN=P( 1 ) 

C IGU INLET PRINTOUT 

IF ( IDESIN.EQ.2) GO TO 99 
WRITECG, 1000) 

1000 formatcihi, **************** DESIGN POINT information ****»<-****»*• 
WRITECG, 1010) 

1010 FORMAT C 1H0, 1X» ;***#»» COMPRESSOR INLET **«**/) 

WRITECG, 1020) TOIN,POIN,TSIN,PSIN,RHDGIN 
1020 FORMAT C 1H0, IX, PTOTAL TEMPERATURE AT COMPRESSOR INLETS, F10. 5,/, 
$2X, FTOTAL PRESSURE AT COMPRESSOR INLETS, FI 0.2, /, 

$2X» FSTATIC TEMPERATURE AT COMPRESSOR INLETS, F10. 5, /, 

S2X, PSTATIC PRESSURE AT COMPRESSOR INLETS, F10. 

$2X> PSTATIC DENSITY AT COMPRESSOR INLETS, F10. 5) 

WRITECG, 1030) AIN, U2IN, MIN, AREASCNS1 ) , FAI IN 
1030 FORMAT C 1H0, IX, ^ACOUSTIC SPEED AT COMPRESSOR INLETS, FI 0.5,/, 

$2X» PAXIAL UELGCITY AT COMPRESSOR INLET=A F10, 5, /, 

$2X, PMACH NUMBER AT COMPRESSOR INLETS, FI 0.5,/, 

$2X, ^STREAMTUBE AREA AT COMPRESSOR INLETS, F10. 5,/, 

$2X, PFLOW COEFFICIENT AT COMPRESSOR INLET=/, F10.5) 

99 CONTINUE 
C ROTOR INLET 
I=N51 
ISTAGE=1 
ALFA1=BET2SSC I ) 

ADEUSSC I )=ALFA1-BET2MSC I ) ,• 

IFCADEUSSCD.LT. l.OE-G) ADEUSSC I )=0. 01 
NSF1=NSF+1 

100 IF C ISTAGE.E0.N5F1 ) AMASS=AMASS/C 1 . 0+BYPASS) 

CALL WICMACC ISTAGE, AMASS, TGC 1 ) , PC 1 ) , M, U2, C, 0. 0, ALFA1, 

$RMIX,CPMIX» AREA C ISTAGE) ) 

CPMIXDCPMIX 

GAMMA1=GAMMA 

U21=U2 

A1=C 

M1=M 

PS 1 =P ( 1 ) / C 1 . 0 +G2*M 1 “*2 ) **G 1 
TS 1 =TG C 1 ) / C 1 . 0+G2*M 1 **2 ) 

RH0GS1=PS1/RMIX/TS1 

IFC ISTAGE. NE. NS 1 ) FAIRINC ISTAGE)=UZ1/UTIPGC ISTAGE) 

IFC ISTAGE. EG. NS1) FAIRINC ISTAGE)=U21/UTIPGC ISTAGE-1) 
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57. 

000042B 


ALFA1R=ALFA1*PAI/180.0 

50. 

000044B 


U1=UZ1/CGS( ALFA1R) 

59. 

00004GB 


US 1 =UZ 1 *WICT AM ( ALF AIR) 

GO. 

000051B 


IF( ISTAGE.NE.NS1 ) U31=U(ISTAGE)-US1 

Gl. 

000057B 


IF ( ISTAGE. EO. MSI ) US1=U( ISTAGE-1 )-USl 

GO. 

OOOOGOB 


UU=US1A)Z1 

G3. 

OOOOG3B 


BETA1R=ATAM(WU) 

G4. 

OOOOGGB 


BETA1=BETA1R*180.0/PA1 

G5. 

000070B 


IFC ISTAGE. EQ. MSI ) GO TO 100 

GG. 

000272B 


BET1SRC ISTAGE)=BETA1 

G7. 

000073B 


A I MCSR ( I STAGE ) =BETA 1 -BET 1 MR ( I ST AGE ) 

G8. 

000275B 

100 

m=UZl/C05CBETAlR) 

G9. 

000301B 


M1REL=U1/A1 

70. 

000303B 


TREL1=( 1 . 0+G2*MlREL**2)«TSl 

71. 

00030GB 


PREL1 = ( 1 . 0+G2-sMlREL-”-»2)**Gl*PSl 



C ROTOR OUTLET 

70. 

000314B 


P( 2 )=PR10D( ISTAGE )*P( 1 ) 

73. 

000317B 


TR 1 2= ( PR 1 2D C I STAGE ) -•* ( 1 . 0 /G 1 ) - 1 . 0 ) /ET ARD ( I STAGE ) + 1 . 0 

74. 

00030GB 


TG(2)=TRi2*TG( 1 ) 

75. 

000330B 


CALL WICPRPC 1.0i0.0«0.0»TG(2)>RMIX» CPMIX> GAMMA. Gl> G0» G3) 

7G. 

000333B 


GAMMA2=GAMMA 

77. 

000333B 


CPMIX2=CPMIX 

78. 

000335B 


GAMMAU= ( GAMMA 1 +GAMMA2 V2 . 0 

79. 

000337B 


CPMIXU=(CPMIX1+CPMIX2V2.0 

80. 

000340B 


G 1 AU=G AMMAU/ ( GAMMAU- 1.0) 

81. 

000344B 


GO AU= ( GAMMAU- 1 . 0 ) /2 . 0 

80. . 

00034GB 


DELT=TG(2)-TG( 1 ) 

83. 

000350B 


US2=(U(ISTAGE)«US1+DELT*CPMIXU*GC»AJ)/UU2( ISTAGE) 

84. 

00035GB 


JJ=1 

85. 

000357B 


UZ0AS=UZ1 

86. 

0003G0B 

000 

US2UZ2=US2A)Z2AS 

87. 

0003G3B 


ALFA2R= AT AM ( US2UZ2 ) 

88. 

00036GB 


U2=UZ2AS/-C0S ( ALFAOR ) 

83. 

000370B 


TS2=TG ( 2 ) -U2*«2/ ( 2 . 0*CPMIX2*GC*A J ) 

90. 

00037GB 


A2=SGRT(GAMMA2*RMIX-::-TS2*GC) 

91. 

000403B 


M2=U2/A2 

90. 

000404B 


PS2=P ( 0 ) / ( 1 . 0+G2*M2«*2 ) **G1 

93. 

000410B 


RH0GS2=PS0/RMIX/TS2 . 

94. 

000415B 


UZ2CL=AMASS/ ( RH0GS2* AREAS ( ISTAGE ) ) 

95. 

000417B 


IFC JJ.EQ.2) GO TO 201 

9G. 

000400B 


IF ( JJ.GT.2) GO TO 202 

97. 

000424B 


X1=UZ2AS 

93. 

000405B 


Y1=UZ2CL 

99. 

000406B 


UZ2AS=UZ2CL 

100. 

000407B 


JJ=JJ+1 

101. 

000431B 


GO TO 200 

100. 

000430B 

001 

X2=UZ2AS 

103. 

000430B 


Y2=UZ2CL 

104. 

000434B 


UZ2AS=mCMEW(Xl , Y1 , X2, Y2 ) 

105. 

000437B 


JJ=JJ+1 

10G. 

000440B 


GO TO 200 

107. 

000441B 

000 

IF((ABS(UZ2AS-UZOCL)/UZ2AS).LT.1.0E-G) GO TO 300 

108. 

00044GB 


X1=X2 

109. 

00044GB 


Y1=Y2 

110. 

000450B- 


X2=UZ2AS 

111. 

000451B 


Y2=UZ2CL 

110. 

000453B 


UZ2 AS=U I CNEW ( X 1 > Y 1 » X2 » Y2 ) 

113. 

000455B, 


JJ=JJ+1 

114. 

00045GB 


GO TO 200 

115. 

000457B 

300 

UZ2=UZ2CL 
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1 16. 

0004G0B 

WS2=UU2( ISTAGE)-US2 

117. 

000463B 

US2UZ2=US2/UZ2AS 

118. 

000464B 

BET A2R=AT AN ( US2UZ2 ) 

119. 

000467B 

BETA2=BETA2R*180 . O/PAI 

120 . 

000471B 

BET23R( ISTAGE)=BETA2 

121. 

000471B 

ADEUSRC I5TAGE)~EETA2-BET2f1R( ISTAGE) 

122. 

000474B 

W2=UZ2AS/C0S ( BETA2R ) 

123. 

000477B 

M2REL=U2/A2 

124. 

000501B 

TREL2= ( 1 . 0+G2*M2REL**2 . 0 ) *TS2 

125. 

000504B 

PREL2= C 1 . 0+M2REL**2 . 0 ) **G 1*PS2 

12G. 

000512B 

FAIOUTC ISTAGE)=UZ2/UTIPG( ISTAGE) 

127. 

000515B 

DR(ISTAGE) = 1.0-UI2/m+ABS(USl-LIS2)/2.0/SIGUMR(ISTAGE)/Ul 

128. 

000525B 

DEQR C ISTAGE ) =COS ( BETA2R ) /COS ( BET A1 R ) * 
SCUZ1/UZ2)* 

$( 1.12+0. G1*C0S(BETA1R)**2/SIGUMR( ISTAGE)* 
5(UICTAN(BETA1R)-(RADI2( ISTAGE )/RADIl( ISTAGE))* 
$(UZ2/UZ1 H-mCTAH(EETA2R) )-U( ISTAGE)/UZ1* 

$ ( 1 . 0- ( RADI 2 ( ISTAGE ) /RAD I 1 ( ISTAGE ) ) **2 ) ) 

129. 

000563B 

PRRELI=( 1 . 0+G2AU*U( ISTAGE)**2/(GAMMAU*RMIX*TREL1*GC) 
$ * C ( UU2 C I STAGE ) /U ( I STAGE ) ) **2- 1 . 0 ) ) ** G 1 AU 

130. 

000G01B 

PLOSSR=PR 1 2D ( I ST AGE ) / C TG ( 2 ) /TG ( 1 ) ) **G1 AU*PRRELI 

131. 

000G10B 

IF (PRRELI . LT.PLOSSR) PRRELI=1.0 

132. 

000G13B 

OMEGRC ISTAGE)=(PRRELI-PLOSSR)/( 1 . 0-PS1/PREL1 ) 

133. 

000G20B 

SI TADR ( ISTAGE ) =OMEGR ( ISTAGE ) *COS ( BET A2R ) **3 . 0 
$/ ( 2 . 0*SIGUMR C I STAGE ) -'COS ( BETA1 R ) **2 . 0 ) 

134. 

OOOG32B 

ALFA2=ALFA2R* 180. O/PAI 

135. 

000G35B 

BET 1SSC ISTAGE )=ALFA2 

13G. 

000G35B 

AIHCSS ( I STAGE ) =ALFA2-BET1 MS ( I STAGE ) 
C STATOR OUTLET 

137. 

000S37B 

ADEUSS(ISTAGE)=0.1 

138. 

000G41B 

PL0SSS=PR13D( ISTAGE)/PR12D( ISTAGE) 

139. 

000G42B 

PR 1 3= C TG ( 2 ) /TG ( 1 ) ) «*G1 AU«PLOSSR*PLOSSS/PRRELI 

140. 

000G52B 

□MEGS C I STAGE ) = ( 1 . 0-FLOSSS ) / (1 . 0-PS2/P C 2 ) ) 

141. 

OOOGSOB 

ETASG( ISTAGE )=(PR13-*( 1 . 0/GlAU)-l . 0)/(TR12~l . 0) 

142. 

000G70B 

P(3)=PR13-P( 1 ) 

143. 

000G73B 

TG(3)=TG(2) 

144. 

000G74B 

TD( ISTAGE)=TG( 1 ) 

145. 

000G7GB 

PSID( ISTAGE)=GC*AJ*CPf1IXU*ETASGC ISTAGE)*(TG(2)-TG( 1) )/ 
$(UTIPG( I STAGE) •"•*2) 

14G. 

000705B 

TAUD( ISTAGE )=PSIDC ISTAGE)/ETASG( ISTAGE) 

147. 

00070SB 

ALFA3=BET2MS ( ISTAGE ) +ADEUSS ( ISTAGE ) 

148. 

00071 IB 

ALFA3R=ALFA3-”-PAI/180 . 0 

149. 

000713B 

CALL WICPRP( 1.0»0.0>0.0*TGC3)rRhIX> CPMIX? GAMA> G1 > G2*G3) 

150. 

000715B 

JJ=1 

151. 

000715B 

UZ3AS=UZ2 

152. 

00071GB 

350 U3=UZ3 AS/COS ( ALF A3R ) 

153. 

000722B 

TS3=TG ( 3 ) -U3*-::-2 .0/(2. 0*CPMIX*GC*A J ) 

154. 

000730B 

A3=SQRT(GAMA*RI1IX*TS3*GC) 

155. 

000735B 

M3=U3/A3 

156. 

00073GB 

PS3=P ( 3 ) / ( (1 . 0+G2*M3**2 . 0 ) **G 1 ) 

157. 

000747B 

RHCGS3=PS3/RM I X/TS3 

158. 

000752B 

IF ( ISTAGE . EQ . MS ) AREA ( I STAGE+ 1 ) =AREAS ( ISTAGE ) 

159. 

00075GB 

UZ3CL=AMA5S/(RH0GS3-:tAREA( ISTAGE+1 ) ) 

160. 

0007G0B 

IF( JJ.EQ. 2)G0 TO 351 

161. 

0007G2B 

IF ( JJ. GT. 2)G0 TO 352 

162. 

0007G4B 

X1=UZ3AS 

163. 

0007G5B 

Y1=UZ3CL 

164. 

0007SGB 

UZ3AS=UZ3CL 

165. 

0007G7B 

' JJ=JJ+1 

16G. 

000771B 

GO TO 350 
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1G7. 

1G8. 

1G9. 

170. 

171. 

172. 

173. 

174. 

175. 
17G. 

177. 

178. 

179. 

180. 
181. 
182. 


183. 

184. 

185. 
18G. 

187. 

188. 

189. 

190. 

191. 

192. 


193. 

194. 

195. 
19G. 
197. 
193. 


199. 

200 . 
201 . 
202 . 

203. 

204. 


205. 

206. 

207. 

208. 

209. 

210 . 
211 . 
212 . 


213. 


000772B 
000772B 
000774B 
000777B 
001000B 
001001B 
00100GB 
00100GB 
001010B 
00101 IB 
001013B 
001015B 
00101GB 
001017B 
001020B 
001025B 


001054B 

0010G7B 

001072B 

001102B 

001105B 
001107B 
001113B 
001 1 17B 
001117B 
001122B 


001122B 

001132B 

001132B 

001142B 

001142B 

001145B 


001145B 

001155B 

001155B 

0011G5B 

0011G5B 

001170B 


001170B 

001201B 

001201B 

001212B 

001212B 

001212B 

001217B 

001222B 


001222B 


351 X2=UZ3AS 
Y2=UZ3CL 

UZ3A5=UICNEUCX1,Y1,X2,Y2) 

JJ=JJ+J. 

GO TO 350 

352 IFCCABSCUZ3AS-UZ3CL)/UZ3CL).LT.1.0E-S)GO TO 400 
X1=X2 

Y1=Y2 

X2=U23AS 

Y2=UZ3CL 

UZ3AS=UICNEU(X1,Y1,X2,Y2) 

JJ=JJ+1 
GO TO 350 
400 UZ3=UZ3CL 

IFC ISTAGE. EQ.NS)RADI 1 ( ISTAGE+1 )=RADI2C ISTAGE) 

BEOS ( I STAGE ) =COS ( ALFA3R ) /COS ( ALFA2R ) * ( UZ2/UZ3 ) * 

$C 1 . 12+0.61 *COS ( ALF A2R ) .O/SI GUMS (1ST AGE ) * 

$CUICTANC ALFA2R)-UICTANC ALFA3R)*C RADII C ISTAGE+1 )/RADI2C ISTAGE) )* 
$CUZ3/UZ2))) 

SI TADS ( ISTAGE)=OMEGSC ISTAGE)*C0SCALFA3R)/(2. 0*SIGUMSC ISTAGE) )* 

$ ( COS C ALFA3R ) /COS ( ALFA2R ) ) **2 . 0 
US3=UZ2-“-UICTANC ALFA3R ) 

DS C ISTAGE ) = 1 . 0-U2/U3+ABS C US2-US3 ) /2 . 0/S I GUMS ( I STAGE ) /U2 
UUDCISTAGE)=U1/U2 
C PRINTOUT OF STAGE PERFORMANCE 
IF ( IDESIN.EQ.2) GO TO 1231 
URITECG, 1000) 

URITEC6, 1100) ISTAGE 

1100 FORMAT ( 1H0* IX, /«»**» STAGED. 12. / ***»*/) 

URITECG, 1101) 

1101 FORMAT ( 1H0, 16X, /TOTAL/, 8X, /TOTAL/, 7X, /STATIC/, 7X. /STATIC/, 7X, 
S/STATIC/, /, 17X, /TEMP/, 7X, /PRESSURE/, 7X, /TEMP/, 7X, /PRESSURE/, GX, 
S/DENSITY/) 

URITECG. 1110) TG(1).P(1)»TS1.FS1. RH0GS1 

1110 FORMAT ( 1H0. IX. /ROTOR INLET/. IX, 5CF10 . 3, 3X) ) 

URITECG, 1120) TGC2)»PC2),TS2» PS2 , RH0GS2 

1120 FORMAT C 1H , IX, /ROTOR OUTLET/, 5CF10 . 3, 3X) ) 

URITECG, 1111) 

1111 FORMATCIHO, 1GX, /AXIAL/, SX, /ABSOLUTE/, 5X, /RELATIUE/, 5X, /TAN COMP/, 
$5X, /TAN COMP/, /, 15X, /UELOCITY/, 5X, /UELOCITY/, 5X, ZUELOCITY/, 4X, 

$/OF ABS UEL/.3X./0F REL UEL/) 

URITECG, 1130) U21,U1,U1,US1,US1 
1130 FORMATCIHO, IX, /ROTOR INLET/, IX, 5CF10 . 5, 3X) ) 

URITECG, 1140) U22, U2, U2, US2, US2 

1140 FORMAT C 1H , IX, /ROTOR OUTLET/, 5CF10 . 5, 3X) ) 

URITECG, 1141) 

1141 FORMATCIHO, 15X, /ROTOR/, 7X, /ABS MACH/, 5X, /REL MACH/, 5X, /REL TOTAL/, 
$4X, /REL TOTAL/, /, 1GX, /SPEED/, 8X, /NUMBER/, 7X, /NUMBER/, 7X, /TEMP/, 8X, 
$/PRESSURE/) 

URITECG, 1150) UC ISTAGE) , Ml , M1REL, TREL1 , PREL1 
1150 FORMATCIHO, IX, /ROTOR INLET/, IX, 5CF10. 3, 3X) ) 

URITECG, 1160) UU2C ISTAGE), M2, M2REL, TREL2, PREL2 
1160 FORMAT C 1H , IX, /ROTOR OUTLET/, 5CF10 .3, 3X) ) 
i = i stage 

IFC ISTAGE. EQ.l) I=NS1+1 
URITECG, 1161) 

1 1G1 FORMATCIHO, 14X, /ABS FLOU/, 5X, /REL FLOUZ, 4X, ZSTREAMTUBEZ, 18X, 
SZFLOUZ, /, 1GX, /ANGLE/, SX, /ANGLE/, SX, /AREA/, 9X, /RADIUS/, 5X, 
$/COEFFICIENTZ) 

UR I TE C G , 1 1 70 ) EET2SS C I- 1 ) , BIT 1 SR C I STAGE ) , ARE A ( I ST AGE ) , 
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214. 

215. 

21G. 

21 ?. 

218. 


219. 

220 . 
221 . 
222 . 

223. 

224. 

225. 

226. 
22 ?. 
228. 

229. 

230. 

231. 

232. 

233. 

234. 

235. 
23G. 
23?. 

238. 

239. 

240. 

241. 

242. 

243. 

244. 

245. 
24S. 
24?. 

248. 

249. 

250. 


251. 

252. 

253. 

254. 

255. 
25G. 
25?. 

258. 

259. 
2G0 . 
261. 


00123?B 

00123?B 

001254B 

001254B 

0012G?B 


0012G?B 

0012G?B 

00126?B 

0012?1B 

0012?4B 

001275B 

001277B 

001300B 

001302B 

001305B 

001310B 

001317B 

001322B 

001324B 

001330B 

001333B 

001333B 

001337B 

001337B 

001343B 

001343B 

001347B 

001347B 

001353B 

001353B 

001357B 

001357B 

0013G3B 

0013G3B 

0013G7B 

0013G7B 

001372B 


0013?2B 

001402B 

001402B 

001412B 

001412B 

001422B 

001422B 

001432B 

001432B 

001442B 

001442B 


SRADIl C ISTAGE) * FAIRINC ISTAGE) 

11?0 FORMAT ( 1H0, IX, PROTOR INLETP, IX, 5CF10. 5, 3X) ) 

URITEC6, 1180) EET1SSC ISTAGE), BET2SRC ISTAGE), AREASC ISTAGE), 

SRADI2C ISTAGE) , FAIOUTC ISTAGE ) 

1180 FORMAT ( 1H , IX, PROTOR OUTLETS, 5CF10.5, 3X) ) 

URITECG, 1 190 ) PR13, ETASGC ISTAGE) , PR12DC ISTAGE) , ETARDC ISTAGE) , TR12 
1190 FORMAT ( 1H0, IX, PSTAGE TOTAL PRESSURE RATIO AT DESIGN POINTS, F10.5, 
$/» 2X, PSTAGE ADIABATIC EFFICIENCY AT DESIGN POINTS, F10. 5, p,2X, 
$PROTOR TOTAL PRESSURE RATIO AT DESIGN POINTS, F10. 5, /, 2X, 

$PROTOR ADIABATIC EFFICIENCY AT DESIGN POINTS, F10. 5, /, 2X, 

$PROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINTS, F10. 5) 

1231 CONTINUE 
C REPEAT 

TGC 1 )=TG(3) 

P( 1 )=P(3) 

ALFA 1 =BET2MS ( ISTAGE ) +ADEUSS C ISTAGE ) 

ISTAGE=ISTAGE+1 
IFC ISTAGE. LE.NS)GO TO 100 
C OUERALL PERFORMANCE AT DESIGN POINT 
OUALPR=PC3)/POIN 
OUALTR=TG(3)/TOIN 
GAMMAU=( GAMAIN+GAMMA )/2 . 0 
G1AU=GAMI1AU/(GAMMAU-1 . 0 ) 

OUALEF= C OUALPR** ( 1 . 0 /G 1 AU ) - 1 . 0 ) / C OU ALTR- 1 . 0 ) 

OUALDT.=TGC3)-TOIN 

C PRINTOUT OF OUERALL PERFORMANCE AT DESIGN POINT 
IF ( IDESIN. EG. 2) GO TO 433 
URITECG, 1000) 

URITECG, 421) 

421 FORMAT (1H0,P**»»»**-*** OUERALL PERFORMANCE AT DESIGN POINT *»** 

) 

URITECG, 425) TOIN 

425 FORMAT C 1H0, IX, ^COMPRESSOR INLET TOTAL TEMPERATURES, F8. 2) 

URITECG, 42G) POIN 

42G FORMAT ( 1H0, IX, ^COMPRESSOR INLET TOTAL PRESSURES, F10. 2) 

URITECG, 427) CMASS 

427 FORMAT C 1H0, IX, ^CORRECTED MASS FLOU RATES, F8. 3) 

URITECG, 429) OUALPR 

429 FORMAT C 1H0, IX, POUERALL TOTAL PRESSURE RATIOS, F8. 4) 

URITECG, 430) OUALTR 

430 FORMAT C 1H0, IX, POUERALL TOTAL TEMPERATURE RATIOS, FG. 4) 

URITECG, 431) CUALEF 

431 FORMAT ( 1H0, IX, POUERALL ADIABATIC EFFICIENCYS,FG.4) 

URITECG, 432) OUALDT 

' 432 FORMAT C 1H0, IX, POUERALL TEMPERATURE RISES, F8. 3) 

URITECG, 1G21) 

1G21 FORMAT C 1H0, 14X, PIP, 5X, P2P, 5X, P3P, 5Xi P4P, 5X, P5P, 5X, PSP, 5X, 

SP7P, 5X, P8P, 5X, P9P, 4X» P10P, 4X, PI IP, 4X, P12P, 4X, P13P, 4X, P14P, 

$4X, P15P, 4X» P1GP) 

URITECG, 1710) C BET 1 SRC I ), 1 = 1, NS) 

1710 FORMAT C 1H , IX, PBET1SRC I )P,2X, 17CF5.2, IX) ) 

URITECG, 1720) CBET2SRC I ), 1=1, NS) 

1720 FORMAT C 1H , IX, PBET2SRC I )P, 2X, 17CF5.2, IX) ) 

URITECG, 1730) C AINCSRC I ) , 1=1 , NS) 

1730 FORMAT C 1H , IX, PAINCSRC I )P, 2X, 17CF5.2, IX) ) 

URITECG, 1740) CADEUSRC I ), 1=1, NS) 

1740 FORMAT C 1H , IX, PADEUSRC I)P, 2X, 17CF5.2, IX)) 

URITECG, 17G0) CBET1SSC I ), 1=1, NS) 

17G0 FORMAT C 1H , IX, PBET1SSC I )P, 2X, 17CF5. 2, IX) ) 

URITECG, 1770) CBET23SCI), 1=1, NS 1) 
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2G2. 

2G3. 

2S4. 

2G5. 

2GG. 

2G7. 

2G8. 

2G9. 

270. 

271. 

272. 

273. 

274. 

275. 
27G. 

277. 

278. 

279. 

280. 
281. 
282. 

283. 

284. 


001452B 

001452B 

0014G2B 

0014G2B 

001472B 

001472B 

001502B 

001502B 

001512B 

001512B 

001522B 

001522B 

001532B 

001532B 

001542B 

001542B 

001552B 

001552B 

0015G2B 

0015G2B 

0015G2B 

0015S2B 

0015G5B 


1770 FORMAT ( 1H , IX, FBET2SSC I )F, 2X, 17CF5. 2, IX) ) 
WRITECG, 1780) C AINCS3C I ) , 1=1 , NS) 

1780 FORMAT ( 1H , IX, FAINCSSC I )F, 2X> 17CF6. 2) ) 
WRITECG, 1790) C ADEUSSC I ) , 1=1 , NS) 

1790 FORMAT ( 1H , IX, FADEU3SC I )F, 2X, 17CF5. 2, IX) ) 
WRITECG, 1791) CTD(I), 1=1, NS) 

1791 FORMAT ( 1H , IX, FTDCI )*, GX, 17(F5. 0, IX) ) 
WRITEC6, 1793) (OMEGR(I), 1=1, NS) 

1793 FORMAT ( 1H , IX, FOMEGRC I )F, 3X, 17(F5.3, IX) ) 
WRITECG, 1794) COMEGS Cl ) , 1=1 , NS) 

1794 FORMAT ( 1H , IX, FOMEGSC I )F, 3X, 17CF5. 3, IX) ) 
WRITECG, 1795) CSITADRC I ) , 1=1, NS) 

1795 FORMAT C 1H , IX, FSITADRC I ); ; * 3X» 17CF5. 4, IX) ) 
WRITECG, 179G) CSITADSC I ) , 1=1, NS) 

179G FORMAT C 1H , IX, FSITAE5C I )F, 3X, 17CF5. 4, IX) ) 
WRITECG, 1797) CDEQRC I ) , 1=1 , NS) 

1797 FORMAT C 1H , IX, FDEQRC I )^, 5X, 17CF5.3, IX) ) 
WRITECG, 1798) CDEQSC I ) , 1=1 , NS) 

1798 FORMAT C 1H , IX, CDEQSC I )^, 5X, 17CF5. 3, IX) ) 
433 CONTINUE 

AMASS=AMASSS 

RETURN 

END 
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IMPU I DA I A **»»&-»-5»«$Hi'-:M»*«*»************ 

FMF (FRACTION OF DESIGN CORRECTED SPEED)=1.000 

XDIN( INITIAL WATER CONTENT OF SMALL DROPLET )= 0 

XDDINC INITIAL WATER CONTENT OF LARGE DROPLET )= 0 

RHUMIDC INITIAL RELATIUE HUMIDITY)= .00 PER CENT 
XCH4C INITIAL METHANE CONTENT )= 0 

TOG (COMPRESSOR INLET TOTAL TEMPRATURE OF GAS)= 518.70 
TOW (COMPRESSOR INLET TEMPERATURE OF DRQFLRET)= 513.70 
PO ( COMPRESSOR INLET TOTAL PRESSURE)=211G.80 

DINdNITIIL DROPLET DIAMETER OF SMALL DROPLET )= 20.0 

BDIN( INITIAL DROPLET DIAMETER OF LARGE DROPLET ) = 600.0 

FND( DESIGN ROTATIONAL SPEED)= 9492.1 

D5MA5S( DESIGN MASS FLOW RATE)= 25.5000 

BYPASS RATIO = 1.0050 

COMPRESSOR INLET TOTAL TEMPERATURE (GAS PHASE) 518.70 R 
COMPRESSOR INLET TOTAL PRESSURE=21 IE. 80 LB/FT**2 

PREB(FERCENT OF WATER THAT REBOUND AFTER IMPINGEMENT )= 50.0 PERCENT 
ROTOR SPEED= 9492.1 RPM 

CORRECTED ROTOR SPEED= 9492.1 RPM( 100.0PER CENT OF DESIGN CORRECTED SPEED) 
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■*»*■* DESIGN POINT INFORMATION C-SS4;-£«3Sfi';9« sc* 


***** COMPRESSOR IMLET ***** 

TOTAL TEMPERATURE AT COMPRESSOR INLET= 518.70000 
TOTAL PRESSURE AT COMPRESSOR INLET= 211G.80 
STATIC TEMPERATURE AT COMPRESSOR IMLET= 489.23241 
STATIC PRESSURE AT COMPRESSOR INLET= 1725. 23^ 
STATIC DENSITY AT COMPRESSOR INLET= -0ES10 

ACOUSTIC SPEED AT COMPRESSOR INLET=1084. 47473 
AXIAL. VELOCITY AT COMPRESSOR I NLET= 594.81337 
MACH NUMBER AT- COMPRESSOR INLET= .54848 
STREAMT.UBE AREA AT COMPRESSOR INLET= .G48G1 
FLOW- COEFFICIENT- AT COMPRESSOR IHLET= .392G1 
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**a*«****»iHf-»** DESIGN POINT INFORMATION »•»«*»***»•»»* *** 

*-***-« STAGE= 1 »**»* 

TOTAL TOTAL STATIC STATIC STATIC 

TEMP PRESSURE TEMP PRESSURE DENSITY 

ROTOR INLET 518.700 211G.800 487.912 1709.001 .0GB 

ROTOR OUTLET 567. S14 2842. 8G2 523.582 2185.821 .078 

AXIAL ABSOLUTE RELATIUE TAN COMP TAN COMP 

UELOCITY UELOCITY UELOCITY OF AB5 UEL OF REL UEL 

ROTOR INLET G03. 84985 G07.983SG 1008.08131 70.82921 807.21328 

ROTOR OUTLET 571.04901 702.43S44 734.24570 409.04717 4G1. 54024 

ROTOR ABS MACH REL MACH REL TOTAL REL TOTAL 

SPEED NUMBER NUMBER TEMP PRESSURE 

ROTOR INLET 878.042 .5G1 .931 572.552 2990.253 

ROTOR OUTLET 870.587 .624 .G53 571.429 7574.884 

ABS FLOW REL FLOW STREAMTUBE FLOW 

ANGLE ANGLE AREA RADIUS COEFFICIENT 

ROTOR INLET G.GS000 53.20104 .64323 10.G0000 .39857 

ROTOR OUTLET 35.S1433 38.94G25 .57395 10.51000 .37692 

STAGE TOTAL FRES5URE RATIO AT DESIGN POINT= 1.33500 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .91272 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.34300 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .23300 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.09430 
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DESIGN POINT INFORMATION *»**»»«»*»** *»* 

STAGE= 2 »»a 

TOTAL TOTAL STATIC STATIC STATIC 

TEMP PRESSURE TEMP PRESSURE DENSITY 

ROTOR INLET 567.614 2825.928 533.274 23B1.973 .082 

ROTOR OUTLET 614.949. 3673.706 578.855 2371.117 .096 

AXIAL ABSOLUTE RELATIUE TAN COMP TAN COMP 

UELOCITY UELOCITY UELOCITY OF AB5 UEL OF REL UEL 

ROTOR INLET 580.14010 533.67613 983.42989 64.15055 806.43636 

ROTOR OUTLET 527.36892 659.43115 702.93351 395.89255 464.754 77 

ROTOR AB5 MACH REL MACH REL TOTAL REL TOTAL 

SPEED NUMBER NUMBER TEMP PRESSURE 

ROTOR INLET 870.587 .513 .873 621.370 3879.399 

ROTOR OUTLET 860.647 .559 .596 619.882 8636.952 

ABS FLOW REL FLOW STREAMTUBE FLOW 

ANGLE ANGLE AREA RADIUS COEFFICIENT 

ROTOR INLET 6.21000 54.26926 .53542 10.51000 .40981 

ROTOR OUTLET 36.89530 41.38875 .50261 10.39000 .37253 

STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.29300 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .91221 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.30000 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .93300 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.08339 
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*************** DESIGN POINT INFORMATION ************ *** 


***** 

STAGE= 

3 ***** 







TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

B14.949 

6G3.870 

3S53.925 

47G8.372 

591. 2G1 
G3G.907 

3183.551 

4121.153 

.101 

.121 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

533.97030 

444.47534 

534.12747 

570.G7312 

1008.3G504 
G22. 59028, 

-12.95G70 

357.92386 

855.38049 

435.95909 



ROTOR 

SPEED 

AES MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

842.424 

7S3.883 

.448 

.462 

.846 

.504 

S75.6B7 
669. 010 

5084. SG8 
9128.642 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

-1.49000 

38.04355 

58. 02558 
44.44581 

.47320 

.47305 

10.17000 

9.58400 

.39511 

.32889 


STAGE TOTAL FRESSURE RATIO AT DESIGN POINT= 1.30100 

STAGE ADIABATIC EFFICIENCY AT DESIGN PQINT= .97785 

ROTOR TOTAL FRESSURE RATIO AT DESIGN POINT= 1.30500 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .29100 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.07955 
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*************** DESIGN POINT INFORMATION ************ *** 

***** STAGE= 4 ***** 

TOTAL TOTAL STATIC STATIC STATIC 

TEMP PRESSURE TEMP PRESSURE DENSITY 

ROTOR INLET EG3.870 4753.756 625.256 3350. 41B .115 

ROTOR OUTLET 708.797 5832.858 BS3.054 4S03.573 .130 

AXIAL ABSOLUTE RELATIUE TAN COMP TAN COMP 

UELOCITY UELOCITY UELDCITY OF ABS UEL OF REL UEL 

ROTOR INLET G82. 78673 GS2.810B9 1025.73B88 5.72023 7B5.4GB14 

ROTOR OUTLET G4S. 18309 744.35839 75S.3830B 364.185S8 333.S3573 

ROTOR ABS MACH REL MACH REL TOTAL REL TOTAL 

SPEED NUMBER NUMBER TEMP PRESSURE 

ROTOR INLET 771. 18G .558 .838 712.335 G092.42B 

ROTOR OUTLET 758.181 .531 .603 710.673 13741.777 

ABS FLOW REL FLOW STREAMTUBE FLOW 

ANGLE ANGLE AREA RADIUS COEFFICIENT 

ROTOR INLET .38000 48.26742 .16133 3.31000 .74226 

ROTOR OUTLET 29.23201 31.25337 .15035 3.15300 .70573 

STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.22300 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .65313 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.22700 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .88500 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.06767 
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****** * * -r.- * -x- * *■ DESIGN POINT INFORMATION ************ *** 


***** STAGE= 5 ***** 


TOTAL . TOTAL STATIC STATIC 

TEMP PRESSURE TEMP PRESSURE 


ROTOR INLET 70S. 79? 

ROTOR OUTLET 74G.S14 


5813.844 G71.028 4732.730 

S382.427 693.441 5542.742 


AXIAL 

UELOCITY 


ABSOLUTE RELATIUE TAN COMP 
UELOCITY UELOCITY OF ABS UEL 


ROTOR INLET GG8. 00784 
ROTOR OUTLET G32.44913 


G7G. 28003 S2G.SG150 

75S.9481G 711.05048 


105.32404 

415.30GG2 


ROTOR 

SPEED 


AES MACH 
NUMBER 


REL MACH 
NUMBER 


REL TOTAL 
TEMP 


ROTOR INLET 747.983 

ROTOR OUTLET 740.8G9 


.533 .731 741.930 

.535 .550 741.081 


ABS FLOW 
ANGLE 


REL FLOW STREAMTUBE 
ANGLE AREA 


RADIUS 


ROTOR INLET 8.8G000 
ROTOR OUTLET 33.32942 


43.89245 

27.19481 


.14222 9.03000 

.13539 8.94400 


STAGE TOTAL PRESSURE RATIO AT DESIGN FOINT= 1.19400 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .96495 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT" 1.20100 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .99300 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.05335 


STATIC 

DENSITY 

. 134 
.149 

TAN COMP 
OF REL UEL 

G42.EG87G 

324.SS245 

REL TOTAL 
PRESSURE 

6832.319 

1409G.G45 

FLOW 

COEFFICIENT 

.75389 

.71376 
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DESIGN POINT INFORMATION «»«»*»»**»** *** 

***** STAGE= S ***** 

TOTAL TOTAL STATIC STATIC STATIC 

TEMP PRESSURE TEMP PRESSURE DENSITY 

ROTOR INLET 746.614 6341. 730 713.972 5926.540 .156 

ROTOR OUTLET 766.028 8149.591 747.285 6811.243 .171 

AXIAL ABSOLUTE RELATIUE TAN COMP TAN COMP 

UELOCITY UELOCITY UELOCITY OF ABS UEL OF REL UEL 

ROTOR INLET 629.34161 629.56023 958.38077 16.58981 722.78824 

ROTOR OUTLET 594.91699 637.07378 711.05095 .343.72036 389.44462 

ROTOR AES MACH REL MACH REL TOTAL REL TOTAL 

SPEED NUMBER NUMBER TEMP PRESSURE 

ROTOR INLET 739.378 .482 .733 789.618 8462.191 

ROTOR OUTLET 733.165 .514 .532 788.793 16491.997 

ABS FLOUI REL FLOW STREAMTUBE FLOW 

ANGLE ANGLE AREA RADIUS COEFFICIENT 

ROTOR INLET 1.41000 48.95347 .12989 8.92600 .72753 

ROTOR OUTLET 30.01772 33.20956 .12514 8.85100 .68774 

STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.16100 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .81537 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.17400 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .87900 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.05279 


190 



*************** DESIGN point information 


■»*»** ST AGE= 7 »***» 

TOTAL TOTAL 

TEMP PRESSURE 

ROTOR INLET 78S.028 8059.348 

ROTOR OUTLET 822.002 9373.022 

AXIAL ABSOLUTE 

UELOCITV UELOCITY 

ROTOR INLET G08.4G583 G12. 58727 

ROTOR OUTLET 598.43691 707.G5127 

ROTOR ABS MACH 

SPEED NUMBER 

ROTOR INLET 728.278 .456 

ROTOR OUTLET 718.007 .518 

ABS FLOW REL FLOW 

ANGLE ANGLE 

ROTOR INLET G. 55000 47.21108 

ROTOR OUTLET 32.25G59 29.62645 


STATIC STATIC STATIC 

TEMP PRESSURE DENSITY 

755.218 6933.435 .174 

781.033 7313.181 .188 

RELATIUE TAN COMP TAN COMP 

UELOCITY OF ABS UEL OF REL UEL 

895.72552 70.94005 657.33822 

888.43868 377.G81S5 340.32497 

REL MACH REL TOTAL REL TOTAL 

NUMBER TEMP PRESSURE 

.667 821.089 9408.952 

.504 819.821 17494.804 

STREAMTUBE FLOW 

AREA RADIUS COEFFICIENT 

.12043 3.78200 .71338 

.11335 8.GG800 .70655 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.15200 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .83759 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.16300 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .95000 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.04577 
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*«»««*<*«*»»*»«» DESIGN POINT I NFORMAT I ON ************ *** 
***** 5TAGE= 8 ***** 




TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

822.002 

873.933 

9284.369 

11224.802 

790.955 

822.825 

80S5. 411 
9047.821 

.192 

.206 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

613.25442 

605.81241 

615.92757 

732.32318 

8S8. 46478 
635.GS878 - 

57.32174 

510.65385 

656.62621 

192.52565 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

713.948 

703.180 

.448' 

.5G6 

.654 

.454 

857.020 

855.732 

10770.488 

17685.797 



AB5 FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

5.24000 

40.12835 

46.35613 

17.63013 

. 10811 
.10186 

8.61900 

8.48300 

.74443 

.73540 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.17700 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .73978 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.20900 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .8S700 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.06318 
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************-»** DESIGN POINT INFORMATION **®« 


**•>« 

STAGE= 

3 ***):# 







TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

873.933 

908.493 

10927.702 

124G8.508 

839. 9G3 
853.171 

9482.936 

10161.577 

.212 

.222 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

G19.79GSG 
G21. 17319 

G45. 85147 
787.58012 

808.72977 
G58. 29178 

181.59355 

484.17601 

518.51509 

217.92565 



ROTOR 

SPEED 

AES MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

701.109 

702.103 

.457 

.551 

.572 

.461 

893.227 

893.339 

11815.435 

20274.187 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

1G. 23000 
37.93478 

39.9G982 

19.33244 

. 0SG97 
.09225 

3.46400 

8.47600 

.77257 

.77429 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 
STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= 
ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 
ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= 
ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 


1.13400 
.90329 
1.14100 
.SoOOO 
1 . 03S54 
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DESIGN POINT INFORMATION ***«***»»**» «-** 


mm 

STAGE= 

10 




TOTAL 

TOTAL 



TEMP 

PRESSURE 

ROTOR 

INLET 

908.493 

12392.015 

ROTOR 

OUTLET 

9B0.272 

14858.025 



AXIAL 

ABSOLUTE 



UELOCITY 

UELOCITY 

ROTOR 

INLET 

G7S.3G1S1 

705.77G5G 

ROTOR 

OUTLET 

659.51612 

830.57551 



ROTOR 

ABS MACH 



SPEED 

NUMBER 

ROTOR 

INLET 

1041.988 

.491 

ROTOR 

OUTLET 

1049.983 

.5G7 



ABS FLOW 

REL FLOW 



ANGLE 

ANGLE 

ROTOR 

INLET 

1G. 50000 

51.17109 

ROTOR 

OUTLET 

37.434G5 

39.57489 


STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

8G8.0G8 
904. B14 

10524. 2G1 
11976.885 

.227 

.248 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

1078.73177 

855.G3381 

201.63215 

504.87043 

840.35541 

545.11255 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

.751 

.584 

9G2.504 

9G3.701 

15246.275 

34518.645 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

.08275 

.07771 

8.47100 

8.53G00 

.57535 

.56102 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.19200 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .87744 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.19900 

ROTOR ADIABATIC EFFICIENCY AT DESIGN FOINT= .91000 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN PDINT= 1.05G99 



*************** design point information 


STAGE=11 *$?*** 




TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

960.272 

1015.289 

14771.281 

17828.937 

917.855 

952.427 

12548.939 

14134.824 

.256 

.278 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

667.92072 

650.50780 

724.95970 

885.42704 

1027.77536 

801.07480 

281.86605 

600.68346 

781.15561 

467.50446 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

1063.022 

1068.188 

.491 

.589 

.696 

.533 

1003.108 

1003.899 

17291.099 

35080.785 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

22.78000 

42.71960 

49.46817 

35.70390 

.07431 
.07 029 

8.64200 

8.68400 

.56888 

.55405 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.19700 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .83885 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.20700 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .93400 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.05729 • 
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*************** DESIGN POINT INFORMATION ************ *** 
***** STAGE=12 




TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

1015.289 

10S9.470 

17681.224 

21058.337 

975.525 

1008.283 

15293.334 

16977.947 

.294 

.316 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

G41.30G07 

G34.2423G 

704.09145 
87G. 33443 

1013.41041 

790.93392 

290.63945 

604.73025 

784.68285 

472.56016 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

1075.322 

1077.290 

.463 
. 5G8 

.667 

.512 

1057.900 

1058.142 

20528.324 

39801.685 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

24.28000 

43.63548 

50.74154 

36.G8899 

.06749 

.06354 

8.74200 

8.75800 

.54621 

.54020 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.18000 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .87100 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.19100 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .92400 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.05337 
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*•>:-»***<***«**«#» DESIGN POINT INFORMATION *r»**«*»**» ■»** 


STAGE=13 




TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

10S9.470 

1115.935 

208G3.844 
24139. 4S8 

1029.939 

1058.174 

18130. 8G9 
19855. 0G0 

.331 

.352 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

G33. 58192 
G31.3154G 

704.2GG31 

853.83022 

1000.50439 

813.16051 

307.51420 

574.8G258 

774.32744 

512.51435 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

1081.842 

1087.377 

.451 

.541 

.641 

.515 

1109.721 

1110.581 

23879.938 

47102.224 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

25.79000 

42.32034 

50.7087G 

39.07038 

. 0G0G7 
.05728 

8.79500 

8.84000 

.53963 

.53770 


STAGE TOTAL PRESSURE RATIO AT DESIGN POINT= 1.14500 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .86629 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.15700 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POINT= .93700 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT = 1.04345 
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**#*«»*»*»**»*» DESIGN POINT INFORMATION ************ *•** 


£-X~X"K~* 

STAGE= 

14 

TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

1115.935- 

11-71.330' 

23889.101 

28189.140 

1077.633 

1112.238 

21011.397 

23273.804 



AXIAL 

UELOCITY 

ABSOLUTE' 

OELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

634.92439 

623.19394 

695.17343 
8S6. 5571-1 

1030.02084 
7 95.76814 

283.08439 

602.12170 



ROTOR 

SPEED 

AES MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

ROTOR 

ROTOR 

INLET 

OUTLET 

1094.142 
1026. -971 

.436 

.536 

.646 

.-492 

1161.720 

1162.086 



ABS FLOW 
ANGLE 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

ROTOR 

ROTOR 

INLET 

OUTLET 

23.33000 

44.01476 

51.94490 

38.45148 

; 05481 
.05203 

8. 89500 
8.91800 


STAGE TOTAL PRESSURE RATIO AT DESIGN POiNT= 1.17300 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .89082 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POlNT= 1.18000 

ROTOR ADIABATIC EFFICIENCY AT DESIGN POIN T= .32800 

ROTOR TOfAL TEMPERATURE RATIO AT DESIGN POINT= 1.04964 


STATIC 

DENSITY 

.365 

.392 

TAN COMP 
OF REL UEL 

811.05730 

494.84973 

REL TOTAL 
PRESSURE 

27693.438 

51903.412 

FLOW 

COEFFICIENT 

.54078 

.53079 



**5************ DESIGN POINT INFORMATION ************ *** 
***** STAGE=15 ***** 




TOTAL 

TOTAL 

STATIC 

STATIC 

STATIC 



TEMP 

PRESSURE 

TEMP 

PRESSURE 

DENSITY 

ROTOR 

INLET 

1171.330 

28021.916 

1137.219 

25119.100 

.414 

ROTOR 

OUTLET 

1214.915 

31776.853 

1168.097 

27453.245 

.441 



AXIAL 

ABSOLUTE 

RELATIUE 

TAN COMP 

TAN COMP 



UELOCITY 

UELOCITY 

UELOCITY 

OF ABS UEL 

OF REL UEL 

ROTOR 

INLET 

G14. 55554 

658.27809 

1061.68927 

235.90577 

865.73991 

ROTOR 

OUTLET 

600.59056 

773.42782 

860.18593 

487.32081 

615.80095 



ROTOR 

ABS MACH 

REL MACH 

REL TOTAL 

REL TOTAL 



SPEED 

NUMBER 

NUMBER 

TEMP 

PRESSURE 

ROTOR 

INLET 

1101.646 

.402 

.649 

1225.949 

33169.434 

ROTOR 

OUTLET 

1103.122 

.487 

.519 

1226.027 

66767.670 



ABS FLOW 

REL FLOW 

STREAMTUBE 


FLOW 



ANGLE 

ANGLE 

AREA 

RADIUS 

COEFFICIENT 

ROTOR 

INLET 

20.90000 

54.63052 

. 04999 

8.95600 

.52343 

ROTOR 

OUTLET 

3S. 05597 

45.71642 

.04807 

3.96800 

.51153 

STAGE 

TOTAL 

PRESSURE RATIO AT DESIGN 

POINT= 1. 

12900 


STAGE 

ADIABATIC EFFICIENCY AT DESIGN 

POINT= .: 

89336 


ROTOR 

TOTAL 

PRESSURE RATIO AT DESIGN 

POINT= 1. 

13400 


ROTOR 

ADIABATIC EFFICIENCY AT DESIGN 

POINT= .! 

92900 


ROTOR 

TOTAL 

TEMPERATURE 

RATIO AT DESIGN POINT= 

1.03721 
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**c-*c-{f****»**«-i DESIGN POINT INFORMATION *»««*»****** *** 
«*e«e STAGE=1G 




TOTAL 

TEMP 

TOTAL 

PRESSURE 

STATIC 

TEMP 

STATIC 

PRESSURE 

STATIC 

DENSITY 

ROTOR 

ROTOR 

INLET 

OUTLET 

1214.915 

12G9.735 

31G3G.743 

3G888.442 

1184.174 

1225.530 

28759.551 

32301.589 

.455 
.494 . 



AXIAL 

UELOCITY 

ABSOLUTE 

UELOCITY 

RELATIUE 

UELOCITY 

TAN COMP 
OF ABS UEL 

TAN COMP 
OF REL UEL 

ROTOR 

ROTOR 

INLET 

OUTLET 

599.3292G 
5G4. 18324 

G2G.G1344 

754.11217 

1100.66508 

828.10710 

182.89025 

500.38227 

923.183SS 

G0G.183GG 



ROTOR 

SPEED 

ABS MACH 
NUMBER 

REL MACH 
NUMBER 

REL TOTAL 
TEMP 

REL TOTAL 
PRESSURE 

ROTOR 

ROTOR 

INLET 

OUTLET 

110G. 074 
li.0G.5GG 

.376 

.445 

.G60 

.489 

1279.023 

1278.854 

3830G.884 

72079.393 



ABS FLOW 

Angle 

REL FLOW 
ANGLE 

STREAMTUBE 

AREA 

RADIUS 

FLOW 

COEFFICIENT 

ROTOR 

ROTOR 

INLET 

OUTLET 

1G. 87000 
41.57028 

57.00844 

47.05527 

. 04GG2 
. 04563 

8.99200 

8.99G00 

.51046 

.48053 


STAGE TOTAL PRESSURE RATIO AT DESIGN F0INT= 1.15900 

STAGE ADIABATIC EFFICIENCY AT DESIGN POINT= .89353 

ROTOR TOTAL PRESSURE RATIO AT DESIGN POINT= 1.1GG00 

ROtOR ADIABATIC EFFICIENCY AT DESIGN P0INT= .93400 

ROTOR TOTAL TEMPERATURE RATIO AT DESIGN POINT= 1.04512 
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DESIGN POINT INFORMATION 
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watt***************** INITIAL FLOW COEFFICIENT= .350 (STAGE= 1 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.39545 

STAGE TOTAL TEMPERATURE RATIC= 1.11005 
STAGE ADIABATIC EFFICIENCY= .S0?G8 

STAGE FLOW COEFFICIENT= .350 
AXIAL UELOCITY= 530.30 
ROTOR SPEED=1515. 04 


*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

2116.8000 

2972.3039 

2953.8901 

STATIC PRESSURE 

1796.7061 

2336.4786 

2595.6467 

TOTAL TEMPERATURE (GAS) 

518.7000 

575.7813 

575.7813 

STATIC TEMPERATURE (GAS) 

494.9447 

537.4990 

554.8911 

STATIC DENSITY(GAS) 

.0680 

.0815 

.0877 

STATIC DENSITY (MIXTURE ) 

.0680 

.0815 

.0877 

AXIAL UELOCITY 

530.3012 

500.4600 

498.5308 

ABSOLUTE UELOCITY 

534.0588 

678.0785 

500.9018 

RELATIUE UELOCITY 

972.1732 

643.9066 


BLADE SPEED 

878.0425 

870.5874 

870.5874 

TANG. COMP. OF AB3. UEL. 

63.2411 

457.5262 


TANG. COMP. OF REL. UEL. 

814.8014 

413.0612 


ACOUSTIC SPEED 

1090.7875 

1154.9161 

1154.9567 

ABSOLUTE MACH NUMBER 

.4896 

.5965 

.4337 

RELATIUE MACH NUMBER 

.8913 

.5709 


FLOW COEFFICIENT 

.3500 

.3303 

.3522 

FLOW AREA 

.6486 

.5739 

.5354 

ABSOLUTE FLOW ANGLE 

6.8007 

42.4333 

5.5782 

RELATIUE FLOW ANGLE 

56.9425 

39.5350 


INCIDENCE 

4.0625 

5.3639 


DEUIATION 


-.8650 

-.6318 

DIFFUSION RATIO 


1.7936 

1.7640 

MOMENTUM THICKNESS 


.0355 

.0202 

OMEGA (GAS) 


.06249 

.028: 

OMEGA (TOTAL) 


.06249 

.021 


202 



ft******************* INITIAL FLOW COEFFICIENT= .350' (ISTAGE= 1 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.33545 

STAGE TOTAL TEMPERATURE RATIO= 1.11005 

STAGE ADIABATIC EFFICIEHCY= .30768 

**ST AGE INLET** 

**STAGE OUTLET-* 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= .00000 

.00000 

.00000 

XW= 0 

0 

0 

XWW= 0 

0 

0 

XWT= 0 

n 

0 

O 

o 

o 

o 

o 

•”H 

1! 

O' 

t-i 

<r 

X 

1.00000 

1.00000 

XMETAN= 0 

0 

0 

XGAS 1.00000 

1.00000 

1.00000 

WMASS= 0 

0 

0 

WWMASS= 0 

0 

0 

WTMASS= 0 

0 

0 

AMASS= 23.40301 

23.40301 

23.40301 

CHMASS= 0 

0 

0 

UMASS= .00000 

.00000 

.00000 

GMASS= 23.40301 

23.40301 

23.40301 

TMASS= 23.40301 

23.40301 

23.40301 

WS= .00000 

.00000 

.00000 

RH0A= . 07643 

.08147 

.08767 

RH0M= .06805 

.08147 

.08767 

RH0G= .06804 

.08147 

.08767 

TG= 518.70000 

575.78131 

575.78131 

TW= 513.70000 

513.70000 

513.70000 

TWU= 513.70000 

0 

513.70000 

P= 2116.80000 

2972. 30333 

2353.83015 

TB= 671.40656 

0 

688.10465 

TDEW= 271.33506 

274.74640 

274.74640 


203 



INITIAL FLOW COEFFICIENT= .350 (STAGE= 2 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.34535 

STAGE TOTAL TEMPERATURE RATIO= 1.09898 
STAGE ADIABATIC EFFICIENCY= .83189 


STAGE FLOU COEFFICIENT= 
AXIAL UELOCITY= 493. 5S 
ROTOR SPEED=1415.G4 


.352 



*ROTOR INLET* 

•'•ROTOR OUTLET* 

*STATOR OUTLE' 

TOTAL PRESSURE 

2953.8901 

3989. 4G03 

3974. 01G4 

STATIC PRESSURE 

2595. G148 

3293.0394 

361G.3800 

TOTAL TEMPERATURE (GAS) 

575.7813 

G32.7S95 

632.7695 

STATIC TEMPERATURE (GAS) 

554.9133 

599. 1572 

615.9652 

STATIC DENSITY(GAS) 

.0877 

.1031 

.1100 

STATIC DENSITY (MIXTURE) 

.0877 

.1031 

.1100 

AXIAL UELOCITY 

498.55G9 

451.7273 

449.4317 

ABSOLUTE UELOCITY 

500.9291 

G35.8535 

449.5905 

RELATIUE UELOCITY 

9S1.285S 

612.1701 


BLADE SPEED 

870.5874 

8G0.G473 

842.4238 

TANG. COMP. OF ABS. UEL 

. 48.G927 

447.4953 


TANG. COMP. OF REL. UEL 

. 821.8948 

413.1520 


ACOUSTIC SPEED 

1154.6320 

121G.4G74 

1216.4916 

ABSOLUTE MACH NUMBER 

.4338 

.5300 

.3696 

RELATIUE MACH NUMEER 

.8325 

.5102 


FLOW COEFFICIENT 

.3522 

.3191 

.3326 

FLOW AREA 

.5354 

. 502G 

.4732 

ABSOLUTE FLOW ANGLE 

5.5782 

44.7303 

-1.5264 

RELATIUE FLOW ANGLE 

58.7592 

42.44G2 


INCIDENCE 

3.1492 

8.3303 


DEUIATION 


. 08G2 

-.0364 

DIFFUSION RATIO 


1.9159 

1.8989 

MOMENTUM THICKNESS 


.0442 

.0173 


OMEGA 

OMEGA 


(GAS) 

(TOTAL) 


.08039 

.08039 


.02224 

.02224 
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c******************* INITIAL FLOW COEFFICIENTS .350 (ISTAGE= 2 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 
STAGE TOTAL TEMPERATURE RATIO= 
STAGE ADIABATIC EFFICIENCY= 


1.34535 

1.09398 

.89189 


xu= 

**STAGE INLET®* 
.00000 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

.00000 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

.00000 

xw= 

0 

0 

0 

xww= 

0 

0 

r » 

u 

XUT= 

9 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

UTi1ASS= 

0 

0 

0 

AMASS= 

23.40301 

23.40301 

23.40301 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

23.40301 

23.40301 

23.40301 

TMASS= 

23.40301 

23.40301 

23.40301 

US= 

.00000 

.00000 

.00000 

RHOA= 

. 09616 

.10306 

.11004 

RHOM= 

.06805 

.10306 

.11004 

RHOG= 

.0876? 

.10306 

.11004 

TG= 

5?5.?8131 

632.76945 

632.76945 

TUs 

513.70000 

513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 

2953.89015 

3989.46031 

3974.01641 

TB= 

688.10465 

0 

703.68519 

TBEW= 

274.74640 

277.17752 

277.17752 



******************** INITIAL FLOW COEFFICIENT = .350 ( STAGE— 3 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.26049 

STAGE TOTAL TEMPERATURE RATIO= 1.03331 
STAGE ADIABATIC EFFICIENCY= .81384 

STAGE FLOW CQEFFICIENT= .333 


AXIAL UELOCITY= 449. 
ROTOR SPEED=1351 .44 
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ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

3974.0134 

5101.3211 

5009.2002 

STATIC PRESSURE 

3313.3429 

4473.3401 

4707.2567 

TOTAL TEMPERATURE (GAS) 

332.7395 

385.4855 

685.4855 

STATIC TEMPERATURE (GAS) 

315.9983 

330.4435 

673.4583 

STATIC DENSITY (GAS) 

.1100 

.1270 

.1310 

STATIC DENSITY (MIXTURE) 

.1100 

.1270 

.1310 

AXIAL UELOCITY 

449.4304 

389.4335 

377.328? 

ABSOLUTE UELOCITY 

449.3199 

549.4712 

380.8195 

RELATIUE UELOCITY 

935.4030 

532.7324 


BLADE SPEED 

842.4238 

793.8829 

771.1864 

TANG. COMP. OF ABS. UEL. 

-11.9733 

337.3310 


TANG. COMP. OF REL. UEL. 

854.4004 

403.2519 


ACOUSTIC SPEED 

1215.9342 

1271.3542 

1271.3809 

ABSOLUTE MACH NUMBER 

.3398 

.4334 

.2995 

RELATIUE MACH NUMBER 

.7940 

.4470 


FLOW COEFFICIENT 

.3323 

.2882 

.4105 

FLOW AREA 

.4732 

.4730 

.4730 

ABSOLUTE FLOW ANGLE 

-1.5234 

44.8339 

7.4243 

RELATIUE FLOW ANGLE 

32.2532 

46.210? 


INCIDENCE 

3.1832 

7.3939 


EEUIATION 


8.4807 

7.0443 

DIFFUSION RATIO 


2.07S1 

1.8336 

MOMENTUM THICKNESS 


.0478 

.0983 

OMEGA (GAS) 


. 08753 

. 14740 

OMEGA (TOTAL) 


. 08753 

.14740 
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***«**---***»*»****-»** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 3 ) ******************** 


STAGE 

PERFORMANCE AFTER 

INTER-STAGE ADJUSTMENT (JPERFM=2) . 

STAGE 

STAGE 

STAGE 

TOTAL FRESSURE RATIO= 1.26049 

TOTAL TEMPERATURE RATIO= 1.08331 

ADIABATIC EFFICIENCY= .81684 

**STAGE INLET** **STAGE OUTLET** 

(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xwu= 

0 

n 

0 

XwT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN 

= 0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS= 

0 

0 

0 

UWMASS 

= . 0 

0 

0 

WTNASS 

= 0 

0 

0 

AMASS= 

23.40301 

23.40301 

23.40301 

CHMASS 

= 0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

23.40301 

23.40301 

23.40301 

TMASS= 

23.40301 

. 23.40301 

23.40301 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.11771 

.12702 

v .10097 

RH0M= 

. 0S805 

.12702 

.10097 

RH0G= 

.11004 

.12702 

.10097 

TG= 

G32.7B945 

G85. 48553 

G85. 48553 

TW= 

513.70000 

513.70000 

513.70000 

TWU= 

513.70000 

0 

513.70000 

P= 

3974. 01G41 

5101.32106 

5009.20024 

TB= 

703.68519 

0 

718.99503 

TDEW= 

277.17752 

269.96289 

2G9.3G289 


207 



INITIAL FLOW COEFFICIENT= .350 (STAGE= 4 ) **«-**************** 

STAGE TOTAL PRESSURE RATIO= 1.19662 
STAGE TOTAL TEMPERATURE RAT 10= 1.0613G 

STAGE ADIABATIC EFFICIENCY= .85105' 

STAGE FLOW COEFFICIENT= .S41 
AXIAL UELOCITY= 589.35 
ROTOR SPEED= 919.87 


'-•ROTOR INLET* --ROTOR OUTLET* *STAT0R OUTLET* 


TOTAL PRESSURE 

5009.2002 

6024.8334 

5994.1247 

STATIC PRESSURE 

4296.7782 

4384.1440 

5185.4606 

TOTAL TEMPERATURE (GAS) 

635.4855 

727.5442 

727.5442 

STATIC TEMPERATURE (GAS) 

65G.2E49 

685.4610 

693.2213 

STATIC DENSITY(GAS) 

. 1227 

.1336 

.1392 

STATIC DENSITY (MIXTURE) 

.1227 

.1336 

.1392 

AXIAL UELOCITY 

589.3897 

581.3061 

589.6111 

ABSOLUTE UELOCITY 

594.3731 

713.4135 

595.5118 

RELATIUE UELOCITY' 

910.7935 

675.7753 


BLADE SPEED 

771.1864 

758. 1814 

747.9928 

TANG. COMP. OF AES. UEL. 

76.8057 

413.5722 


TANG. COMP. OF REL. UEL. 

694.3807 

344.6092 


ACOUSTIC SPEED 

1254.2993 

1293.9674 

1293.7731 

ABSOLUTE MACH NUMBER 

.4739 

.5565 

.4603 

RELATIUE MACH NUMBER 

.7261 

.5272 


FLOW COEFFICIENT 

.6407 

.6319 

.6654 

FLOW AREA 

.1614 

.1503 

.1422 

.ABSOLUTE FLOW ANGLE 

7.4246 

35.4301 

8.0825 

RELATIUE FLOW ANGLE 

49.6754 

30.6603 


INCIDENCE 

.7554 

8.6501 


DEUIATION 


.9503 

-.7775 

DIFFUSION RATIO 


1.5354 

1 . 5344 

.MOMENTUM THICKNESS 


.0587 

.0140 

•OMEGA (GAS) 


.08319 

. 02692 

OMEGA (TOTAL) 


.08319 

. 02692 
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******************** INITIAL FLOW COEFFICIENT= 


350 (ISTAGE= 4 ) ********************** 


STAGE 

STAGE 

STAGE 

STAGE 

PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

TOTAL PRESSURE RATIO= 1.13GB2 

TOTAL TEMPERATURE RATIO 1.0G13G 

ADIABATIC EFFICIENCY= .05105 

«-~-STAGE INLET»* **STAGE OUTLET** **STAGE OUTLET*-* 

(BEFORE INTER- (AFTER INTER- 
STAGE ADJUST- STAGE ADJUST- 
MENT) MENT) 

XU= 

.00000 

.00000 

.00000 

XW= 

0 

0 

0 

XWU= 

0 

0 

0 

XWT= 

n 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN 

= 0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWi'IASS 

= 0 

0 

0 

WTI'IASS 

= 0 

0 

0 

ANASS= 

11.67233 

11.67233 ’ 

11.67233 

CHi'lASS 

= 0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

11.67233 

11.67233 

11.67233 

TMASS= 

11.67233 

11.67233 

11.67233 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.13697 

. 13353 

.13818 

RHOM= 

.06805 

.13353 

.13818 

RHOG= 

.12272 

.13353 

.13818 

TG= 

685.48553 

.727.54417 

727.54417 

TW= 

513,70000 

513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 

5008.20024 

6024.83343 

5834.12468 

TB= 

718.88503 

0 

728.81122 

TDEW= 

263.36233 

271.36263 

271.36263 
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*«»*»************-»»« INITIAL FLOW COEFFICIENT= .350 (STAGE= 5 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.21S39 

STAGE TOTAL TEMPERATURE RATIO= 1.0B039 
STAGE ADIABATIC EFFICIENCY= .94550 

STAGE FLOW COEFFICIENT^ .SBS 
AXIAL UELOCITY= 589. B9 
ROTOR SPEED= S8B.08 



ROTOR INLETS 

^ROTOR OUTLET* 

*STATOR OUTLE1 

TOTAL PRESSURE 

5994.124/ 

Z3Z8.6209 

Z303.1ZG5 

STATIC PRESSURE 

5185.2528 

G059.661G 

650/. 55/3 

TOTAL TEMPERATURE (GAS) 

Z2Z.5442 

ZZ1.9155 

Z/1.9195 

STATIC TEMPERATURE (GAS) 

GS8.28S0 

Z30.06Z3 

Z46.9501 

STATIC DENSITY(GAS) 

.1392 

.1556 

.1633 

STATIC DENSITY (MIXTURE) 

.1392 

.1556 

.1633 

AXIAL UELOCITY 

589.B894 

554.1/30 

550.315/ 

ABSOLUTE UELOCITY 

595. 6058 

Z12.4Z15 

550.315/ 

RELATIUE UELOCITY 

838.2358 

626.903/ 


BLADE SPEED 

Z4Z.992S 

Z40.8691 

Z39.3Z80 

TANG. COMP. OF AES. UEL. 

83./419 

44/./811 


TANG. COMP. OF REL. UEL. 

GS4.2503 

293.0880 


ACOUSTIC SPEED 

1233.1012 

133/. 3196 

133/. 4010 

ABSOLUTE MACH NUMBER 

.4606 

.5389 

.4115 

RELATIUE MACH NUMBER 

.B8S3 

.4/41 


FLOW COEFFICIENT 

.6655 

.6254 

.6362 

FLOW AREA 

.1422 

.1354 

.1299 

ABSOLUTE FLOW ANGLE 

8.0825 

38.9388 

.1833 

RELATIUE FLOW ANGLE • 

48.4023 

2/. 8/32 


INCIDENCE 

8.4629 

8.5583 


DEUIATION 


1.1132 

-1.226/ 

DIFFUSION RATIO 


1./298 

1.6313 

MOMENTUM THICKNESS 


.0033 

.0305 


OMEGA 

OMEGA 


(GAS) 

(TOTAL) 


.004/5 

.004/5 


. 052B5 
. 052S5 
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INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 5 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT C JPERFM=2 ) 

STAGE TOTAL PRESSURE RATIO= 1.21939 

STAGE TOTAL TEMPERATURE RATIO= 1.06099 
STAGE ADIABATIC EFFICIENCY= .94550 


««STAGE INLET«-» *-*STAGE OUTLET** **STAGE OUTLET** 

(BEFORE INTER- (AFTER INTER- 
STAGE ADJUST- STAGE ADJUST- 
MENT) MENT) 


XU= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

XMU= 

0 

0 

0 

XWT= 

0 

Q 

0 

XAlR= 

1.00000 

1.00000 

1.00000 

XI1ET AN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMA5S= 

0 

0 

0 

WWMASS= 

0 

0 

0 

UTMASS= 

0 

0 

0 

AMASS= 

11.67233 

11.67233 

11.67233 

Ch'MASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMA5S= 

11.67233 

11.67233 

11.67233 

TMASS= 

11.67233 

11.67233 

11.67233 

US= 

.00000 

.00000 

.00000 

RHOA= 

.15442 

. 15554 

.16328 

RHOM= 

.06805 

.15554 

.16328 

RHOG= 

.13918 

. 15554 

.16328 

TG= 

727.54417 

771.91951 

771.91951 

TW= 

513.70000 

513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 

5994.12468 

7378.62087 

7303.17654 

TB= 

729.81122 

0 

742.14795 

TDEW= 

271.36263 

273.08753 

273.08753 
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e»**ee*«ee»«»c»e&*»* INITIAL FLOW COEFFICIENT^ .350 (STAGE= G ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.19G54 

STAGE TOTAL TEMPERATURE RAT 10= 1.05S85 

STAGE ADIABATIC EFFICIENCY= .8GS07 

STAGE FLOW COEFFICIENT= . G3G 


AXIAL UELOCITY= 550. 
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ROTOR SPEED= 865.04 





ROTOR INLET* 

-ROTOR OUTLET* * 

STATOR OUTLET* 

TOTAL PRESSURE 

7309. 1765 

8816.6235 

8745.7076 

STATIC PRESSURE 

6507.4014 

7587.3587 

7924.8089 

TOTAL TEMPERATURE ( GAS ) 

771.9195 

818.1164 

818.1164 

STATIC TEMPERATURE (GAS) 

747.0210 

784.1867 

795.6827 

STATIC DENSITY(GAS) 

.1633 

.1813 

.1867 

STATIC DENSITY (MIXTURE) 

. 1633 

.1313 

.1867 

AXIAL UELOCITY 

550.3811 

514.3482 

519.2021 

ABSOLUTE UELOCITY 

550.3039 

642.6013 

522.5194 

RELATIUE UELOCITY 

920.3250 

620.9S20 


BLADE SPEED 

739.3700 

733.1655 

7 28.2783 

TANG. COMP. OF ADS. UEL. 

1.7611 

385.2043 


TANG. COMP. OF EEL. UEL. 

737.6170 

347.9612 


ACOUSTIC SPEED 

1336.5625 

1379.4584 

1379.4083 

ABSOLUTE MACH NUMEER 

.4118 

.4693 

.3788 

RELATIUE MACH NUMBER 

.6886 

. 4535 


FLOW COEFFICIENT 

.6363 

.5946 

.6130 

FLOW AREA 

.1293 

.1251 

.1204 

ABSOLUTE FLOW ANGLE 

.1833 

36.8302 

6.4617 

RELATIUE FLOW ANCLE 

53.2711 

34.0787 


INCIDENCE 

7.5811 

4.1502 


DEUIATION 


7.4387 

-.0883 

DIFFUSION RATIO 


1.8002 

1.6048 

MOMENTUM THICKNESS 


. 0454 

.0294 

OMEGA (GAS) 


. 06738 

.05769 

OMEGA (TOTAL) 


.06738 

. 05769 
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**s*-3*s-*»~.*»{}*-»*** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= B ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.19G54 

STAGE TOTAL TEMPERATURE RATIO= 1.05985 
STAGE ADIABATIC EFFICIENCY= .86607 


xu= 

»*STAGE INLET«* 
.00000 

**STAGE OUTLETS-* 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

.00000 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

.00000 

xw= 

0 

0 

0 

XWW= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1 . nnnnn 

XME7AN- 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WI1ASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11.67233 

11.67233 

11.67233 

CHMASS= 

0 

0 

0 

UMASS=. 

.00000 

.00000 

.00000 

GMASS= 

11.G7233 

11.67233 

11.67233 

TMASS= 

11.G7233 

11.67233 

11.67233 

ws= 

.00000 

.00000 

.00000 

RHOA= 

.17748 

.18132 

. 18GG6 

RHOM= 

. 0G805 

.18132 

. 18G6G 

RHOG= 

. 16328 

.18132 

. 18666 

TG= 

771.91351 

818.11642 

818.11642 

TW= 

513.70000 

513.70000 

513.70000 

TW!-I= 

513.70000 

0 

513.70000 

P= 

7303.17654 

881G.G2355 

8745.70762 

TB= 

742. 14795 

0 

753.67291 

TDEW= 

273.08753 

274.62091 

274.62091 
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e«»ee«aeft»««eBease»a INITIAL FLOW COEFFICIENT= .350 (STAGE= 7 ) ******************* 

STAGE TOTAL PRESSURE. RAT 10= 1.17543 

STAGE TOTAL TEMPERATURE RATI0= 1.05078 
STAGE ADIABATIC EFFICIENCY= .91379 

STAGE FLOW COEFFICIENT= .613 
AXIAL UEL0CITY= 519.26 
ROTOR SPEED= 846.98 


•-ROTOR INLET* -ROTOR OUTLET* "STATOR OUTLET* 


TOTAL PRESSURE 

8745.7076 

10343.6746 

10280.4694 

STATIC PRESSURE 

7924.6568 

8923.0614 

9380.7059 

TOTAL TEMPERATURE ( GAS ) 

818.1164 

859.6583 

859.6583 

STATIC TEMFERATURE ( GAS ) 

795.7587 

824.5923 

837.8175 

STATIC DENSITY(GAS) 

.1867 

.2028 

.2098 

STATIC DENSITY (MIXTURE) 

.1867 

.2028 

.2098 

AXIAL UELOCITY 

519.2616 

507.7313 

514.4858 

ABSOLUTE UELOCITY 

522.5814 

654.5692 

516.5907 

RELATIUE UELOCITY 

847.2421 

592.2380 


BLADE SPEED 

728.2783 

718.0068 

713.9479 

TANG. COMP. OF AB5. UEL. 

58.8109 

413.1220 


TANG. COMP. OF REL. UEL. 

669.4674 

304.8848 


ACOUSTIC SPEED 

1378.4024 

1414.4220 

1414.3603 

ABSOLUTE MACH NUMBER 

.3791 

.4665 

.3652 

RELATIUE MACH NUMBER 

.6147 

.4221 


FLOW COEFFICIENT 

.6131 

.5995 

.6245 

FLOW AREA 

.1204 

.1133 

.1081 

ABSOLUTE FLOW ANGLE 

6.4617 

39.1340 

5.1777 

RELATIUE FLOW ANGLE 

52.2016 

30.9342 


INCIDENCE 

9.1916 

10.7240 


DZUIATION 


6.2542 

-.0623 

DIFFUSION RATIO 


1.7650 

1.6550 

MOMENTUM THICKNESS 


.0210 

.0254 

OMEGA (GAS) 


.03508 

.04784 

OMEGA (TOTAL) 


. 03508 

.04784 
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INI I IAL FLOW CG£FFICIENT= .350 (ISTAGE= 7 ) ********«•»****«*»*** 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.17549 

STAGE TOTAL TEMPERATURE RATIO= 1.05073 
STAGE ADIABATIC EFFICIENCY= .91379 



--STAGE INLET---"- 

**STAGE OUTLET-* 
(BEFORE INTER- 
STAGE ADJUST- 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

0 

0 

0 

XNT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGA3 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

MWMASS= 

0 

0 

0 

UTMASS= 

0 

0 

0 

AMASS= 

11.67233 

11.67233 

11.67233 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

1 1 . 67233 

11.67233 

11.67233 

TMASS= 

11.67233 

11.67233 

11.67233 

WS= 

.00000 

.00000 

.00000 

Rh'9A= 

.20037 

.20279 

.20984 

RhOM= 

.06805 

.20279 

.20984 

RHOG= 

. 18GSS 

.20279 

.20984 

TG= 

818.11642 

859.65826 

859.65326 

TW= 

513.70000 

513.70000 

513.70000 

TLIW= 

513.70000 

0 

513.70000 

P= 

8745.70762 

10348.67456 

10280.46937 

TB= 

753.67291 

0 

761.86427 

TEEW= 

274.62031 

268.00787 

263.00787 
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sess-K-sftsifjri!®*!:--;,™** INITIAL FLOW COEFFICIENT= .350 (STAGE= 8 ) 

STAGE TOTAL PRESSURE RATIO= 1.20089 

STAGE TOTAL TEMPERATURE RATIO= 1.0G425 
STAGE ADIABATIC EFFICIENCY= .81824 

STAGE FLOW COEFFICIENT= .825 
AXIAL UEL0CI7Y= 514.54 
ROTOR SPEED= 823.79 



ROTOR INLET* 

--ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

10280.4694 

12588.8515 

12345.8935 

STATIC PRESSURE 

9380.5524 

10557.9338 

11281.4781 

TOTAL TEMPERATURE ( GAS ) 

859. 8583 

914.8877 

914.8877 

STATIC TEMPERATURE (GAS) 

837.8900 

871.3159 

892.0935 

STATIC DENSITY (GAS) 

.2098 

.2271 

.2370 

STATIC DENSITY (MIXTURE) 

. 20S8 

.2271 

.2370 

AXIAL UELOCITY 

514.5387 

504.5488 

507.8209 

ABSOLUTE UELOCITY 

518.8463 

731.0873 

528.7699 

RELATIUE UELOCITY 

842.8568 

533.7524 


BLADE SPEED 

713.9479 

703.1795 

701.1088 

TANG. COMP. OF AB3. UEL. 

48.8247 

529.0484 


TANG. COMP. OF REL. UEL. 

887.3233 

174.1331 


ACOUSTIC SPEED 

1413.3527 

1458.3792 

1458.3518 

ABSOLUTE MACH NUMBER 

.3855 

.5072 

.3828 

RELATIUE MACH NUMBER 

. 5SB2 

.3703 


FLOW COEFFICIENT 

. 8248 

.8125 

.6330 

FLOW AREA 

.1081 

.1019 

.0970 

ABSOLUTE FLOW ANGLE 

5.1777 

48.3577 

18.1822 

RELATIUE FLOW ANGLE 

52.3BG0 

19.0409 


INCIDENCE 

10.1330 

8.8577 


DEUIATION 


3.7909 

-.0478 

DIFFUSION RATIO 


1 . 9747 

1.7700 

MOMENTUM THICKNESS 


.0811 

.0743 

OMEGA (GAS) 


. 0S331 

.11097 

OMEGA (TOTAL) 


.09931 

.11097 



INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 8 ) ****»**■»***«*»*«***» 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.20089 

STAGE TOTAL TEMPERATURE RATIO= 1.06425 
STAGE ADIABATIC EFFICIENCY^ .S1S24 



»*STAGE inlet---* 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xww= 

0 

0 

0 

v;i it„. 
AW 1 ~ 

0 

6 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WiTASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTtlASS= 

0 

0 

0 

AMASS= 

1 1 .67233 

11.67233 

11.67233 

CKMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

11.G7233 

11.67233 

11.67233 

TMASS= 

1 1 . 87233 

11.67233 

1 1 . 67233 

WS= 

.00000 

.00000 

.00000 

RHOA= 

.22415 

.22704 

.23699 

RHOM= 

. 0G805 

.22704 

. 23699 

RH0G= 

.20984 

.22704 

.23699 

TG= 

85S.G582G 

914.88771 

914.88771 

TW= 

513.70000 

513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 10280. 4G937 

125S8. 85149 

12345. G9354 

TF= 

7G1.8G427 

0 

774.83081 

TDEW= 

2G8. 00787 

2G3. 69355 

269. 63355 
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w******************* INITIAL FLOW COEFFICIENT= .350 (SlAGE= 9 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.1553G 

STAGE TOTAL TEMPERATURE RATIO= 1.04450 
STAGE ADIABATIC EFFICIENCY^ .S1S90 

STAGE FLOW COEFFICIENT= .633 
AXIAL UELOCITY= 507.90 
ROTOR SPEED= 002.25 



*ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

12345.6935 

1433S. 6902 

14263.7226 

STATIC PRESSURE 

11281.2350 

12232.4808 

13193.2043 

TOTAL TEMPERATURE (GAS) 

914.8877 

955.6015 

955.6015 

STATIC TEMPERATURE (GAS) 

892.2055 

914.3024 

935.0742 

STATIC DENSITY(GAS) 

.2370 

. 2508 

.2645 

STATIC DENSITY (MIXTURE) 

.2370 

.2508 

.2645 

AXIAL UELOCITY 

507.8956 

504.5532 

478.4400 

ABSOLUTE UELOCITY 

523.8486 

713.7256 

503.1838 

RELATIUE UELOCITY 

751.3761 

541.7559 


BLADE SPEED 

701.1086 

702.1027 

1041.9876 

TANG. COMP. OF AES. UEL 

. 147.3867 

504.8072 


TANG. COMP. OF REL. UEL 

. 553.7220 

197.2955 


ACOUSTIC SPEED 

1456.8748 

1491.3003 

1491.4642 

ABSOLUTE MACH NUMBER 

. 3630 

.4839 

.3374 

RELATIUE MACH NUMBER 

.5157 

.3673 


FLOW COEFFICIENT 

.6331 

.6289 

.4070 

FLOW AREA 

. 0970 

.0923 

.0923 

ABSOLUTE FLOW ANGLE 

16.1822 

45.0144 

18.0493 

RELATIUE FLOW ANGLE 

47.4717 

21.3570 


INCIDENCE 

2.3317 

8.1944 


DEUIATION 


5.2970 

1.5493 

DIFFUSION RATIO 


1.8431 

1.8616 

MOMENTUM THICKNESS 


.0252 

.0200 

OMEGA (GAS) 


.04159 

.03468 

OMEGA (TOTAL) 


.04159 

.03461 
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***«»*»***»«*»**»*** INITIAL FLOU CCEFFICIENT= .350 (ISTAGE= 9 ) ******************** 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.15536 

STAGE TOTAL TEMPERATURE RATIO= 1.04450 
STAGE ADIABATIC EFFICIENCY= .S1S90 



>*STAGE INLETS* 

**STAGE OUTLET---* 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xu= 

0 

0 

0 

XUW= 

o 

0 

0 

XWT= 

6 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS= 

0 

0 

0 

UWHASS= 

0 

0 

0 

UTMASS= 

0 

0 

0 

AMASS= 

11.67233 

11.67233 

11.67233 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

11.67233 

11.67233 

11.67233 

TMASS= 

11.67233 

11.67233 

11.67233 

US= 

.00000 

.00000 

.00000 

RHOA= 

.25293 

.25071 

.26017 

RKOM= 

.06805 

.25071 

.26017 

RHOG= 

.23633 

.25071 

.26017 

TG= 

314.88771 

955.60152 

955.60152 

TU!= 

513.70000 

513.70000 

513.70000 

TUW= 

513.70000 

0 

513.70000 

P= 12345.63354 

14336.63023 

14263.72230 

TB= 

774.83081 

0 

785.37543 

TDEM= 

263.69355 

270.84633 

270.84633 
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***«5*-355*B;(S5«5es35 INITIAL FLOW COEFFICIENT 11 .350 (STAGE=10 ) ******************** 

STAGE TOTAL FRESSURE RATIO= 1.25604 

STAGE TOTAL TEMPERATURE RATIO 1.07347 
STAGE ADIABATIC EFFICIENCY= .88429 

STAGE FLOW COEFFICIENT= .461 
AXIAL UELOCITY= 542.18 
ROTOR SFEED=1 175. 57 



“ROTOR INLET“ 

“ROTOR OUTLETS sSJATOR OUTLET* 

TOTAL PRESSURE 

14233.7226 

18032.6041 

17315.7526 

STATIC PRESSURE 

12899.8540 

15068.4044 

16329.5258 

TOTAL TEMPERATURE (GAS) 

955.6015 

1025.8110 

1025.8110 

STATIC TEMPERATURE (GAS) 

929.3445 

. 976.0088 

999.7922 

STATIC DENSITY(GAS) 

.2602 

. 2894 

.3061 

STATIC DENSITY (MIXTURE) 

.2602 

.2894 

.3061 

AXIAL UELOCITY 

542.1761 

519.0677 

513.1280 

ABSOLUTE UELOCITY 

570.2372 

785.4702 

567.7388 

RELATIUE UELOCITY 

1021.1334 

693.8723 


BLADE SPEED 

1041.9876 

1043.9330 

1063.0217 

TANG. COMP. OF AES. UEL 

. 176.6793 

583.5185 


TANG. COMP. OF REL. UEL 

. 8S5.3083 

460.4645 


ACOUSTIC SPEED 

1485.6443 

1540.8844 

1540.9245 

ABSOLUTE MACH NUMBER 

.3838 

.5159 

.3684 

RELATIUE MACH NUMBER 

.6873 

.4557 


FLOW COEFFICIENT 

.4612 

.4415 

.4370 

FLOW AREA 

.0827 

.0777 

.0743 

ABSOLUTE FLOW ANGLE 

18.0493 

48.6363 

25.3368 

RELATIUE FLOW ANGLE 

57.9300 

41.5762 


INCIDENCE 

8.4100 

12.2263 


■DEVIATION 


3.6562 

2.5568 

DIFFUSION RATIO 


1.9129 

2.0621 

MOMENTUM THICKNESS 


.0503 

.0281 

OMEGA (GAS) 


. 07377 

.03942 

OMEGA (TOTAL) 


. 07877 

. 0394c 


i 
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INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 10 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.25604 

STAGE TOTAL TEMPERATURE RATIO= 1.07347 
STAGE ADIABATIC EFFICIENCY= .88429 



-STAGE INLET** 

»*STAGE OUTLET*-* 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

X |!= 

n 

0 

0 

XWW= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XM2TAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WL'MASS= 

0 . 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11 .67233 

. 11.G7233 

11.G7233 

CHNASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

0 

0 

11.67233 

TMASS= 

11.67233 

11.67233 

11.67233 

WS= 

.00000 

.00000 

.00000 

RH0A= 

.27977 

.28923 

.30607 

Rh'OM= 

. 0G805 

.28923 

.30G07 

RHOG= 

.2G017 

.28923 

.30S07 

TG= 

955.G0152 

1025.81100 

1025.81100 

TW= 

513.70000 

■ 513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 142G3.722G0 

18032. G0411 

17915.75259 

TB= 

785.37543 

0 

802.G1749 

TEEW= 

270.84699 

272.88102 

272.88102 
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******************** INITIAL FLOW COEFFICIENTS .350 (STAGE=11 ) 

STAGE TOTAL PRESSURE RATIO= 1.25237 

STAGE TOTAL TEMPERATURE RATIO i. 07175 
STAGE ADIABATIC EFFICIENCY= .88530 

STAGE 'FLOW COEFFICIENTS .437 
AXIAL UELOCITY= 513.24 
ROTOR SPEED= 11 74. 10 


--•ROTOR INLET* --ROTOR OUTLET* *STATOR OUTLET* 
TOTAL PRESSURE 17915.752S 22B40.3524 22437.1803 

STATIC PRESSURE 1S328.3333 18741.8775 20780.1544 

TOTAL TEMPERATURE (GAS) 1025.8110 1033.4133 1093.4133 


STATIC TEMPERATURE (GAS) 

999.9774 

1043.7484 

1078.1803 

STATIC DENSITY (GAS) 

.3081 

. 3388 

.3818 

STATIC DENSITY (MIXTURE) 

.3081 

.3388 

.3818 

AXIAL UELOCITY 

513.2398 

493.4343 

478.3182 

ABSOLUTE UELOCITY 

587.8838 

833.7243 

538.6128 

RELATIUE UELOCITY 

987.3850 

832.7889 


BLADE SPEED 

1083.0217 

1068.1879 

1075.3223 

TANG. COMP. OF AB5. UEL. 

243.0102 

872.0259 


TANG. COMP. OF REL. UEL. 

820.0114 

398.1820 


ACOUSTIC SPEED 

1538.7427 

1598.2308 

1596.2980 

ABSOLUTE MACH NUMBER 

.3890 

.5303 

.3374 

RELATIUE MACH NUMBER 

.8287 

.4025 


FLOW COEFFICIENT 

.4371 

.4203 

.4074 

FLOW AREA 

.0743 

.0703 

.0875 

ABSOLUTE FLOW ANGLE 

25.3388 

53.7121 

27.3717 

RELATIUE FLOW ANGLE 

57.9578 

38.7598 


INCIDENCE 

9.9378 

12.0921 


DEUIATION 


5.1GS3 

3.0917 

DIFFUSION RATIO 


2.0930 

2.2918 

MOMENTUM THICKNESS 


.0579 

.0406 

OMEGA (GAS) 


.07894 

.05211 

OMEGA (TOTAL) 


. 07894 

.05211 
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****•**••***«*••*«* 



*%*»«■»**■»»**«***»**■» INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 11 ) a-******************* 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.2523? 

STAGE TOTAL TEMPERATURE RATIO= 1.07175 

STAGE ADIABATIC EFFICIENCY= .88590 

-•-STAGE INLET** **ST AGE OUTLET** 

**ST AGE OUTLET** 

XU= .00000 

(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

.00000 

(AFTER INTER- 
STAGE ADJUST- 
MENT) 

.00000 

XU= 0 

0 

0 

xww- 0 

0 

0 

XWT= 0 

0 

0 

XAIR= 0 

0 

1.00000 

XMETAN= 0 

0 

0 

XGAS 1.00000 

1.00000 

1.00000 

WMASS= 0 

0 

0 

WWMASS= 0 

0 

0 

WTMASS= 0 

0 

0 

AMASS= 11.G7233 

11.67233 

11.67233 

CHMASS= 0 

0 

0 

UMASS= .00000 

.00000 

.00000 

GMASS= 11.67233 

11.67233 

11.67233 

TMASS= 11.67233 

11.67233 

11.67233 

WS= .00000 

.00000 

.00000 

RHOA= .32735 

.33637 

.36150 

RHOM= .06805 

.33637 

.36150 

RHOG= .30607 

.3363? 

.36150 

TG= 1025.81100 

1099.41328 

1099.41328 

TW= 513.70000 

513.70000 

513.70000 

TWW= 513.70000 

0 

513.70000 

P= 17915. 7525S 

22640.35240 

22437.18026 

TB= 802.61749 

0 

820.39758 

TDEW= 0 

274.92943 

274.32943 
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****************•::--:-<■** INITIAL FLOW COEFFICIENT= .350 (STAGE=12 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.23130 

STAGE TOTAL TEMPERATURE RATIO= 1.06707 
STAGE ADIABATIC EFFICIENCY= .86622 

STAGE FLOW COEFFICIENT= .407 
AXIAL UELOCITY= 478.41 
ROTOR SPEED"! 174. 10 


*ROTOR INLET 

TOTAL PRESSURE 22437.1803 

STATIC PRESSURE 2075S.6128 

TOTAL TEMPERATURE (GAS) 1093. 4! 33 

STATIC TEMPERATURE ( GAS ) 1076.3649 

STATIC DENSITY! GAS) .3615 

STATIC DENSITY (MIXTURE) .3615 

AXIAL UELOCITY 478.4108 

ABSOLUTE UELOCITY 538.7252 

RELATIUE UELOCITY 955.9602 

BLADE SPEED 1075.3223 

TANG. COMP. OF ADS. UEL. 247.6853 

TANG. COMP. OF REL. UEL. 827.6370 

ACOUSTIC SPEED 1593.8072 

ABSOLUTE MACH NUMBER .3380 

RELATIUE MACH NUMBER .5938 

FLOW COEFFICIENT .4075 

FLOW AREA . 0675 

ABSOLUTE FLOW ANGLE 27.3717 

RELATIUE FLOW ANGLE 59.9702 

INCIDENCE 11.6302 

DEUIATION 

DIFFUSION RATIO 

MOMENTUM THICKNESS 

OMEGA (GAS) 

OMEGA (TOTAL) 


*ROTOR OUTLET* *STATOR OUTLET* 

27930.5652 

27626.9676 

23509.9181 

25763.5860 

1173.1539 

1173.1539 

1119.335! 

1151.0370 

.3937 

.4195 

.3937 

.4195 

466.6581 

458.5859 

823.3543 

527.8149 

613.9485 

1077.2904 

1081.8416 

678.3381 

398.9523 

1648.1415 

1648.1650 

.5066 

.3202 

.3777 

.3975 

.3906 

.0635 

.0607 

55.4742 

29.6763 

40.5276 

12.8442 

6.6276 

3.8863 

. 2.1810 

2.3725 

.0711 

.0530 

.06902 

.06868 

.03902 

.06868 



224 



**********9********* INITIAL FLOW COEFFICIENT= 


350 (ISTAGE= 12 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT ( JPERFM=2 ) 


STAGE TOTAL PRESSURE RATIO= 
STAGE TOTAL TEMPERATURE RATIO= 
STAGE ADIABATIC EFFICIENCY= 


1.23130 
1.06707 
. 8SB22 



**STAGE INLET** 

**STAGE OUTLET--* 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.00000 

.00000 

.00000 

XUI= 

0 

0 

0 

XWW= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11.B7233 

11.67233 

11 .67233 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

11.G7233 

11.67233 

11.67233 

TMASS= 

11.G7233 

11.67233 

11.67233 

WS= 

.00000 

.00000 

.00000 

RHCJA= 

. 38252 

.39347 

.41945 

RHOM= 

. 0G805 

.39347 

.41945 

RHOG= 

. 3G150 

.39347 

.41945 

TG= 

1093.41328 

1173.15394 

1173.15394 

TW= 

513.70000 

513.70000 

513.70000 

TWUI= 

513.70000 

0 

513.70000 

P= 22437. 1802G 

27930.56525 

27B2G.9G7G0 

TB= 

820 „ 39758 

0 

837.55275 

TDEU= . 

274.92943 

0 

0 
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******************** INITIAL FLOW COEFFICIENT= .350 (STAGE=13 ) ******************* 

■ STAGE TOTAL PRESSURE RATIO= 1.19601 

STAGE TOTAL TEMPERATURE RATIO= 1.05853 
STAGE ADIABATIC EFFICIENCY= .84287 

STAGE FLOW COEFFICIENT= .381 
AXIAL UELOCITY= 458. G7 
ROTOR SPEED=1 174. 10 


»ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

27G26.9G7S 

33500.3482 

33042.2239 

STATIC PRESSURE 

257G3.0S7S 

28736.5816 

310G7.98GG 

TOTAL TEMPERATURE ( GAS ) 

1173.1538 

1241.8209 

1241.8209 

STATIC TEMPERATURE ( GAS ) 

1151.2208 

1191.4240 

1221.3274 

STATIC DENSITY(GAS) 

.4185 

.4521 

. 47G8 

STATIC DENSITY (MIXTURE) 

.4185 

.4521 

.4768 

AXIAL UELOCITY 

458.GG83 

450.7370 

446.6390 

ABSOLUTE UELOCITY 

527.9110 

800.3580 

510.3760 

RELATIUE UELOCITY 

939.9750 

G20.1988 


BLADE SPEED 

1081. 841G 

1037. 37S9 

1094.1423 

TANG. COMP. OF ABS. UEL. 

2S1.3G83 

GG1.3G91 


TANG. COMP. OF REL. UEL. 

820.4733 

42G.0078 


ACOUSTIC SPEED 

1G45.5231 

1694.8805 

1694.8869 

ABSOLUTE MACH NUMBER 

.3208 

.4781 

.3011 

RELATIUE MACH NUMBER 

.5712 

.3705 


FLOW COEFFICIENT 

.3907 

. 3839 

.3804 

FLOW AREA 

.0607 

.0573 

.0548 

ABSOLUTE FLOW ANGLE 

29. G763 

55.7247 

28.9412 

RELATIUE FLOW ANGLE 

GO. 7935 

43.3844 


INCIDENCE 

13.0135 

13.7847 


DEUIATION 


G. 9844 

5.0112 

DIFFUSION RATIO 


2.1805 

2.5072 

MOMENTUM THICKNESS 


. 0G33 

.0741 

OMEGA (GAS) 


. OS051 

.09617 

OMEGA (TOTAL) 


.09051 

.0961; 


226 



**»*******«■->»->***-»** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 13 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT ( JPERFM=2 ) 


STAGE TOTAL PRESSURE RATIO= 
STAGE TOTAL TEMPERATURE RATIO= 
STAGE ADIABATIC EFFICIENCY^ 


1.1SS01 

1.05853 

.8428? 



*»STAGE INLET** 

**STAGE OUTLET-* 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

xwu= 

0 

0 

0 

XI4T= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

UUMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11.S7233 

11.67233 

11.67233 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

11.67233 

11.67233 

11.67233 

TMASS= 

11.67233 

11.67233 

11.67233 

US= 

.00000 

.00000 

.00000 

RHOA= 

.44138 

.45188. 

.47672 

RKOM= 

.06805 

.45183 

.47672 

RHOG= 

. 41S45 

.45188 

.47672 

T.G= 

1173.15334 

1241.82085 

1241.82085 

TW= 

513.70000 

513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 27G2G.9S7S0 

33500.34820 

33042.22332 

TB= 

837.55275 

0 

852.88500 

TEEW= 

0 

278.52362 

278.52862 
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INITIAL FLOW COEFFICIENT= .350 (STAGE=14 ) ******************* 

STAGE TOTAL FRESSL'RE RATIO= 1.20835 

STAGE TOTAL TEMPERATURE RATIG= 1.0B105 
STAGE ADIABATIC EFFICIENCY^ .847GS 

STAGE FLOW COEFFICIENT= .380 
AXIAL UELOCITY= 44S.70 
ROTOR SPEED=i 174. 10 


is 

■ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

33042. 2239 

40440.0863 

39926.4297 

STATIC PRESSURE 

31087.5444 

34810.6428 

37946.7124 

TOTAL TEMPERATURE (GAS) 

1241.8209 

1317.6382 

1317.6382 

STATIC TEMPERATURE ( GAS ) 

1221.4893 

1265.7922 

1299.8148 

STATIC DENSITY(GAS) 

.4767 

.5155 

.5472 

STATIC DENSITY (MIXTURE) 

.4767 

.5155 

.5472 

AXIAL UELOCITY 

446.7045 

435.1859 

426.7369 

ABSOLUTE UELOCITY 

510.4511 

815.2649 

478.0087 

RELATIUE UELOCITY 

S57.6915 

59S.2404 


BLADE SPEED 

1094.1423 

1096.9714 

1101.6457 

TANG. COMP. OF ABS. UEL. 

247.0130 

689.3984 


TANG. COMP. OF REL. UEL. 

847.1293 

407.5731 


ACOUSTIC SPEED 

1692.3317 

1745.7425 

1745.7474 

ABSOLUTE MACH NUMBER 

.3016 

.4732 

.2738 

RELATIUE MACH NUMBER 

.5653 

.3461 


FLOW COEFFICIENT 

.3805 

.3707 

.3635 

FLOW AREA 

.0543 

.0520 

.0500 

ABSOLUTE FLOW ANGLE 

28.9412 

57.7376 

26.7806 

RELATIUE FLOW ANGLE 

62.1966 

43.1234 


INCIDENCE 

12.1766 

13.7076 


DEUIATION 


6.2034 

5.8806 

DIFFUSION RATIO 


2.3230 

2.7547 

MOMENTUM THICKNESS 


.0787 

.0794 

OMEGA (GAS) 


.09938 

.09124 

OMEGA (TOTAL) 


.09938 

.09124 
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»»•«**«*»**«*««»«««* INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 14 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.20835 

STAGE TOTAL TEMPERATURE RATIO= 1.0G105 

STAGE ADIABATIC EFFICIENCY= .84789 

**STAGE INLET** 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= ' .00000 

.00000 

.00000 

XW= 0 

0 

0 

XWW= 0 

0 

0 

XUT= 0 

0 

0 

XAIR= 1.00000 

1.00000 

1.00000 

XMET AN= 0 

0 

0 

XGAS 0 

0 

1.00000 

WI1ASS= 0 

0 

0 

UWMASS= 0 

0 

0 

WTMASS= 0 

0 

0 

AMASS= 11.87233 

11.67233 

11.87233 

CHMASS= 0 

0 

0 

UMASS= .00000 

.00000 

.00000 

GMASS= 11.87233 

11.87233 

11.87233 

TMASS= 11.87233 

11.87233 

11.87233 

WS= .00000 

.00000 

.00000 

RHOA= .49872 

.51523 

.54712 

Rh'OM= . 06805 

.51523 

.54712 

RHOG= .47872 

.51523 

.54712 

TG= 1241.82085 

1317.83819 

1317.83819 

TW= 513.70000 

513.70000 

513.70000 

TWW= 513.70000 

0 

513.70000 

P= 33042.22392 

40440.08828 

39928.42968 

TB= 852.89500 

0 

889.73992 

TDEW= 278.52982 

280.29321 

280.29321 
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v****^************* INITIAL FLOW COEFFICIENT= .350 (STAGE=15 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.16446 

STAGE TOTAL TEMPERATURE RATI0= 1 . 0509B 
STAGE ADIABATIC EFFICIENCY= .805B1 

STAGE FLOW COEFFICIEMT= .3S4 
AXIAL UELOCITY= 42B.79 
ROTOR SPEED=1 174. 10 



*R0TGR INLET* 

--ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

3S92B.42S7 

47283.7933 

46492.7712 

STATIC PRESSURE 

3794G. 3135 

42119.2447 

44527.4672 

TOTAL TEMPERATURE (GAS) 

1317. G382 

1384.7899 

1384.7899. 

STATIC TEMPERATURE (GAS) 

12S9.9723 

1342.9465 

1369.0145 

STATIC DENSITY (GAS) 

.5471 

.5879 

.6096 

STATIC DENSITY (MIXTURE) 

.5471 

.5879 

.6096 

AXIAL UELOCITY 

426.7931 

413.0504 

410.7180 

ABSOLUTE UELOCITY 

478.0720 

735.8883 

451.8444 

RELATIUE UELOCITY 

983.6514 

643.9989 


BLADE SPEED 

1101.6457 

1103.1218 

1106.0739 

TANG. COMP. OF AES. UEL 

. 215.4077 

609.0327 


TANG. COMP. OF REL. UEL 

. 886.2380 

494.0890 


ACOUSTIC SPEED 

1742.8492 

1788.5335 

1788.5323 

ABSOLUTE MACH NUMBER 

.2743 

.4154 

.2526 

RELATIUE MACH NUMBER 

.5644 

.3635 


FLOW COEFFICIENT 

.3635 

.3518 

.3498 

FLOW AREA 

.0500 

.0481 

.0466 

ABSOLUTE FLOW ANGLE 

26.7806 

55.8546 

24.6351 

RELATIUE FLOW ANGLE 

64.2855 

50.1049 


INCIDENCE 

10.1255 

17.0146 


DEUIATION 


5.0049 

7.7651 

DIFFUSION RATIO 


2.1631 

2.9009 

MOMENTUM THICKNESS 


.0612 

.1196 

OMEGA (GAS) 


.09491 

.15316 

OMEGA (TOTAL) 


.09491 

. 1531E 


l 
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********************* 


IMITIAL FLOW COEFFICIEHT= .350 (ISTAGE= 15 ) ******************** 


STAGE 

PERFORMANCE AFTER 

INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE 

STAGE 

STAGE 

TOTAL FRESSURE RATIO* 1.16446 

TOTAL TEMPERATURE RATIO* 1.05096 

ADIABATIC EFFICIENCY* .80561 

**STAGE INLET*--- **ST AGE OUTLET** 

(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= 

.00000 

.00000 

.00000 

XU!= 

0 

0 

0 

XL!W= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN 

= 0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

UMASS* 

0 

0 

0 

WWMASS 

= 0 

0 

0 

NT MASS 

* 0 

0 

0 

AMASS* 

1 1 .67233 

11.67233 

11.67233 

CKMASS 

= 0 

0 

0 

UflASS* 

.00000 

.00000 

.00000 

GMA3S* 

11.67233 

11.67233 

11.67233 

TMASS* 

11.67233 

11.67233 

11.67233 

NS* 

.00000 

.00000 

.00000 

RHOA= 

. 56735 

.58763 

.60957 

RHOM= 

.06805 

.58769 

.60957 

RHOG= 

.54712 

.58769 

.60957 

TG* 

1317.63813 

1384.78992 

1384.78932 

TN= 

513.70000 

513.70000 

513.70000 

TWN= 

513.70000 

0 

513.70000 

P= 

33926.42368 

47283.79333 

4G4S2. 77117 

TB= 

869.73392 

0 

883.78289 

TDEN* 

280.29321 

281.77485 

281.77485 
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INITIAL FLOW COEFFICIENT= .350 (STAGE=1G ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.1 5948 

STAGE TOTAL TEMPERATURE RATI0= 1 . 053GE 
STAGE ADIABATIC EFFICIENCY= .78082 

STAGE FLOW CCEFFICIENT= .350 
AXIAL UELOCITY= 410. 7G 
ROTOR SPEED=1 174. 10 


’“•ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 
TOTAL PRESSURE 4G492.7712 55815.5588 54372.1431 

STATIC PRESSURE 44527.1812 5001G.5G13 52788.5105 

TOTAL TEMPERATURE (GAS) 1384.7898 1459.0445 1459.0445 

STATIC TEMPERATURE (GAS) 13S9.13G8 1417.5332 1447.7427 

STATIC DENSITY(GAS) .GOSS .6613 .G834 

STATIC DENSITY (MIXTURE) .GOSS .SG13 .G834 

374.28G1 
384.0394 

I 


183G.4983 

.2091 


FLOW COEFFICIENT .3438 .3294 .3188 

FLOW AREA . 04GG .0456 .045G 

12.9369 


9.90G9 

3.4054 

.1899 

.24891 

.24891 


ABSOLUTE FLOW ANGLE 24.G351 58.2944 

RELATIUE FLOW ANGLE G5.8872 51.1G35 

INCIDENCE 9.5472 17.8944 

DEUIATION 5.7G35 

DIFFUSION RATIO 2.258S 

MOMENTUM THICKNESS . 0G05 

OMEGA (GAS) .062G7 

OMEGA (TOTAL) .032G7 


1XIAL UELOCITY 
ABSOLUTE UELOCITY 
RELATIUE UELOCITY 
BLADE SPEED 

TANG. COMP. OF AES. UEL. 
TANG. COMP. OF REL. UEL. 
ACOUSTIC SPEED 
ABSOLUTE MACH NUMBER 
RELATIUE MACH NUMBER 


410.7573 386.7880 

451.887G 735.9G04 

1005.4420 GIG. 788B 

1106.0739 110G. 5659 

188.3636 626.1252 

917.7103 480.4407 

1785.9457 1836.5226 

.2530 .4050 

.5630 .3394 
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*-*******--*********** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 16 ) **•****«****•»**•*»#•*** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.16948 

STAGE TOTAL TEMPERATURE RATIO= 1.05362 
STAGE ADIABATIC EFFICIENCY= .78082 



:-<-STAGE INLET-- 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00000 

.00000 

.00000 

xw= 

0 

0 

0 

swu= 

0 

0 

0 

XUT= 

0 

0 

0 

XAIR= 

1.00000 

1.00000 

1.00000 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

NWMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AliASS= 

11.67233 

11.67233 

11.67233 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00000 

GMASS= 

11.67233 

11.67233 

11.67233 

TMASS= 

0 

0 

11.67233 

ws= 

.00000 

.00000 

.00000 

RHOA= 

. 62928 

.66115 

.68338 

RHOM= 

.06805 

.66115 

.68338 

RHOG= 

.60957 

.66115 

.68338 

TG= 

1384.78992 

1459.04452 

1459.04452 

TU- 

513.70000 

513.70000 

513.70000 

TWW= 

513.70000 

0 

513.70000 

P= 46482.77117 

55815.55880 

54372.14309 

TB= 

883.78289 

0 

898.70299 

TDEW= 

281.77485 

283.36412 

283.36412 
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*»****«*** OUERALL PERFORMANCE ********* 

INITIAL FLOW COEFFICIENT= .350 

CORRECTED SPEED 3 9432.1 1.000 FRACTION OF DEIGN CORRECTED SPEED 

INITIAL WATER CONTENT (SMALL DROPLET )= 0 

INITIAL WATER CONTENTCLARGE DROPLET)= 0 

INITIAL WATER CONTENT ( TOTAL )= 0 

INITIAL RELATIUE HUMIDITY= .0 PER CENT 
INITIAL METHANE CONTENT 3 0 

COMPRESSOR INLET TOTAL TEMPERATURE 3 518.70 

COMPRESSOR INLET TOTAL PRESSURE 3 21 IB. 80 

CORRECTED MASS FLOW RATE OF MIXTURE=232. 089 

CORRECTED MASS FLOW RATE OF GAS PHASE 232. 089 

OUERALL TOTAL PRESSURE RATI0=25.B8B0 

OUERALL TOTAL TEMPERATURE RATI0=2.8129 

OUERALL ADIABATIC EFFICIENCY 3 .7890 

********** PERFORMANCE OF FAN.LPC.HPC ********** 



GAS PHASE 

STAGNATION 

STAGNATION 

ADIABATIC 


CORRECTED 

PRESSURE 

TEMPERATURE 

EFFICIENCY 


NASS FLOW 

RATIO 

RATIO 


FAN 

232.088G 

2.3664 

1.3215 

.8265 

LPC 

56.2331 

2.8475 

1 .3941 

.8412 

HPC 

23.3167 

3.8119 

1.5268 

.8392 


234 



TEST CASE NO. 2 

(1.0% Small Droplet Ingestion, Detail Printout). 


235 



MS (NUMBER OF STAGE)=1G 
PERFORMANCE AT MEAN 
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ETARD(I) .933 .933 .991 .805 .999 . ST’S .950 . SS7 .950 .910 .934 .924 .537 .928 .929 .934 



INPUT DATA **»»»*****■»*»*»»***«**»»*«•***• 


FNF(FRACTION OF DESIGN CORRECTED SPEED)=1.000 

XDIN( INITIAL WATER CONTENT OF SMALL DROPLET )= .010 
XDDIN( INITIAL WATER CONTENT OF LARGE DROPLET)= 0 
RHUMIDC INITIAL RELATIUE HUMIDITY)= .00 PER CENT 
XCH4( INITIAL METHANE CONTENT )= 0 

TOG (COMPRESSOR INLET TOTAL TEMPRATURE OF GAS) = 518.70 
TOW (COMPRESSOR INLET TEMPERATURE OF DROPLRET)= 513.70 
PO (COMPRESSOR INLET TOTAL PRESSURE)=211S.80 

DIN( INITIIL DROPLET DIAMETER OF SMALL DROPLET )= 20.0 

DDIN( INITIAL DROPLET DIAMETER OF LARGE DROPLET )= BOO.O 

FND(DESIGN ROTATIONAL SPEED)= 3492. 1 

DSMASS( DESIGN MASS FLOW RATE)= 25.5000 

BYPASS RATIO = 1.0050 

COMPRESSOR INLET TOTAL TEMPERATURE (GAS PHASE) 518.70 R 
COMPRESSOR INLET TOTAL PRESSURE=211B.80 LB/FT**2 

PREB(FERCENT OF WATER THAT REBOUND AFTER IMPINGEMENT )= 50.0 PERCENT 
ROTOR SPEED= 3432.1 RPil 

CORRECTED ROTOR SPEED= 3432.1 RPM( 100.0PER CENT OF DESIGN CORRECTED SPEED) 
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DESIGN POINT INFORMATION **»»*»****«* *** 
***** COMPRESSOR INLET ***** 

TOTAL TEMFERATURE AT COMPRESSOR INLET= 518.70000 
TOTAL PRESSURE AT COMPRESSOR INLET= 2116.80 
STATIC TEMPERATURE AT COMPRESSOR INLET= 483.23241 
STATIC PRESSURE AT COMPRESSOR INLET= 1725.23 
STATIC DENSITY AT COMPRESSOR INLET= .06S10 

ACOUSTIC SPEED AT COMPRESSOR INLET=1084. 47473 
AXIAL UELOCITY AT COMPRESSOR INLET= 534.81337 
MACH NUMBER AT COMPRESSOR INLET= .54848 
STREAMTUBE AREA AT COMPRESSOR INLET= .648B1 
FLOW COEFFICIENT AT COMPRESSOR INLET= .32261 
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At this point the program would again output the design point 
information for stages 1 through 16. In order to conserve space, this 
part is omitted, and the reader is referred to pages 185 - 201. 
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*-*»***»**»*»*****-::-*» INITIAL FLOW COEFFICIENT= .350 (STAGE= 1 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.38859 

STAGE TOTAL TEMPERATURE RATIO= 1.10SB9 
STAGE ADIABATIC EFFICIEMCV= .89B54 

STAGE FLOW CCEFFICIENT= .350 
AXIAL UELOCITY= 530.30 
ROTOR SPEED=1515. 04 



*ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

2116.8000 

2963.4889 

2933.3674 

STATIC PRESSURE 

1793. 6677 

2322.7007 

2575.6199 

TOTAL TEMPERATURE (GAS) 

□18.7000 

575.5954 

575.5954 

STATIC TEMPERATURE (GAS) 

494.7052 

537.2341 

554.4704 

STATIC DEMSJTY(GAS) 

.0680 

.0810 

.0871 

STATIC DENSITY (MIXTURE) 

. 068G 

.0819 

.0878 

AXIAL UELOCITY 

530.3018 

502.5744 

501.4220 

ABSOLUTE UELOCITY 

534.0594 

678.7781 

503.7088 

RELATIUE UELOCITY 

972. 1734 

651.3535 


BLADE SPEED 

878.0425 

870.5874 

870.5874 

TAMG. COMP. OF AES. UEL 

63.2412 

456.2442 


TAMG. COMP. OF REL. UEL 

. 814.8013 

414.3433 


ACOUSTIC SPEED 

1085. 0632 

1143.7209 

1148.7468 

ABSOLUTE MACH HUMBER 

.4922 

.6003 

.4385 

RELATIUE MACH NUMBER 

.8960 

.5760 


FLOW COEFFICIENT 

.3500 

.3317 

.3542 

FLOW AREA 

.6403 

.5733 

.5354 

ABSOLUTE FLOW ANGLE 

6.8007 

42.233B 

5.4621 

RELATIUE FLOW ANGLE 

56.9425 

33.5036 


INCIDENCE 

4.0625 

5.1636 


DEUIATION 


-.8354 

-.7479 

DIFFUSION RATIO 


1.7868 

1.7458 

MOMENTUM THICKNESS 


.0347 

.0225 

OMEGA (GAS) 


.06104 

.03247 

OMEGA (TOTAL) 


.06641 

.03764 
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»***-::-*****•***•**«***« INITIAL FLOW CGEFFICIENT= .350 (ISTAGE= 1 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.38859 

STAGE TOTAL TEMPERATURE RATIO= 1.103S8 
STAGE ADIABATIC EFFICIENCY= .89858 



-~-*ST AGE INLET** 

**STAGE OUTLET** 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.00000 

.00000 

.00009 

xu= . 

.01000 

.01000 

.00391 

xww= 

0 

0 

0 

XUiT= 

.01000 

.01000 

.00391 

XAIR= 

.99000 

.99000 

.39000 

XMETAN= 

0 

0 

0 

XGAS 

.99000 

.99000 

.99009 

WMASS= 

.23611 

.23611 

.23406 

WWMASS= 

0 

0 

0 

WTMASS= 

.23811 

.23611 

.23406 

AMASS= 

23.37452 

23.37452 

23.37452 

CHMASS= 

0 

0 

0 

UMASS= 

.00000 

.00000 

.00205 

GMASS= 

23.37452 

23.37452 

23.37656 

TMASS= 

23.81062 

23.61062 

23.61062 

WS= 

.00000 

.00000 

.00009 

RHOA= 

. 07849 

.08110 

. 07925 

RH0M= 

. 06885 

.08191 

. 08796 

RHOG= 

.06798 

.08110 

.08709 

TG= 

518.70000 

575.59544 

' 575.59326 

TW= 

513.70000 

521.31958 

521.37095 

TWW= 

513.70000 

0 

513.70000 

P= 

2116.80000 

2963.48895 

2939.36745 

TB= 

671.40656 

0 

687.85162 

TDEW= 

271.99506 

274.72203 

413.95332 
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INITIAL FLOW COEFFICIENT= .350 (STAGE= 2 ) ******************* 

! STAGE TOTAL PRESSURE RATIO= 1.34080 

STAGE TOTAL TEMPERATURE RATIO= 1.038B4 
STAGE ADIABATIC EFFICIENCY= .88422 

STAGE FLOW COEFFICIENT= .354 
AXIAL UELOCITY= 501.32 
ROTOR SPEED=1415. 84 


*ROTQR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

2933.3874 

3960.8534 

3941.0927 

STATIC PRESSURE 

2575.8881 

3282.7022 

3576.6373 

TOTAL TEMPERATURE (GAS) 

575.5933 

832.3722 

832.3722 

STATIC TEMPERATURE (GAS) 

554.2925 

593.8532 ' 

815.2651 

STATIC DENSITY (GAS) 

.0871 

.1021 

.1090 

STATIC DENSITY (MIXTURE ) 

.0880 

.1032 

.1100 

AXIAL UELOCITY 

501.3185 

455.3373 

453.4281 

ABSOLUTE UELOCITY 

503.8051 

63S.8834 

453.6388 

RELATIUE UELOCITY 

9S3.3E60 

816.3188 


BLADE SPEED 

870.5874 

880.8473 

842.4238 

TANG. COMP. OF ABS. UEL. 

47.9389 

445.2959 


TANG. COMP. OF REL. UEL. 

822.8505 

415.3514 


ACOUSTIC SPEED 

1148.2943 

1203.7844 

1209.8071 

ABSOLUTE MACH NUMBER 

.4388 

.5337 

.3750 

RELATIUE MACH NUMBER 

.8390 

.5185 


FLOW COEFFICIENT 

.3541 

.3218 

.3355 

FLOW AREA 

.5354 

.5028 

.4732 

ABSOLUTE FLOW ANGLE • 

5.4621 

44.3612 

-1.7478 

RELATIUE FLOW ANGLE 

58.6421 

42.3708 


INCIDENCE 

3.0321 

7.9612 


DEUIATION 


.0108 

-.2578 

DIFFUSION RATIO 


1.9013 

1 . 8643 

MOMENTUM THICKNESS 


.0423 

.0180 

OMEGA (GAS) 


.07715 

.02344 

OMEGA (TOTAL) 


.08279 

.02803 
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INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 2 ) ********************* 


STAGE 

STAGE 

STAGE 

STAGE 

PERFORMANCE AFTER INTER-STAGE ADJUSTM 

TOTAL PRESSURE RATIO 1.34080 

TOTAL TEMPERATURE RATIO= 1.098S4 

ADIABATIC EFFICIENCY= .8842? 

--"-STAGE INLET"-* **STAGE OUTLET-"-* 

(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

ENT( JPERFM=2) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= 

.00009 

.00009 

.00030 

XU!= 

.00991 

.00991 

.00970 

XLU= 

0 

0 

0 

XUIT= 

.00391 

.00991 

.00970 

XAIR= 

.99000 

.99000 

.S9000 

XNETAN 

= 0 

0 

0 

XGAS 

.99003 

.99009 

.99030 

UIMASS= 

.23408 

.23408 

.2289? 

UUilASS 

= 0 

0 

0 

UTMASS 

= .23408 

.23408 

.22897 

AMASS= 

23.37452 

23.37452 

23.37452 

CHHASS 

= 0 

0 

0 

UHASS= 

.00205 

.00205 

.00714 

GMASS= 

23.37858 

23.37656 

23.38165 

tmass= 

23.61062 

23.61082 

23.61062 

us= 

.00009 

.00009 

.00031 

rhoa= 

. 0S572 

.10220 

.10165 

rhom= 

.06885 

.10322 

.11003 

RHOG= 

.08709 

.10220 

.10896 

TG= 

575.59326 

832.37218 

632.36701 

TUI= 

521.37095 

530.18119 

530.28344 

TUUI= 

513.70000 

0 

513.70000 

P= 

2939.36745 

3960.65335 

3941.09258 

TB= 

687.85162 

0 

703.23864 

TDEUI= 

413.95332 

413.57138 

444.74623 
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ee«e»ee«e«««««e*»x«-:» INITIAL FLOW COEFFICIENT= .350 (STAGE= 3 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.258B3 

STAGE TOTAL TEMPERATURE RATIO= 1.08322 
STAGE ADIABATIC EFFICIENCY= .81227 

STAGE FLOW CCF.FFICIENT= .336 
AXIAL UELOCITY= 453.49 
ROTOR SPEED=i351 .44 



*ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

3941.0927 

5052.1100 

4360.3923 

STATIC PRESSURE 

3576.5694 

4425.1846 

4652.8306 

TOTAL TEMPERATURE (GAS) 

632.3670 

6S4.S353 

684.9953 

STATIC TEMPERATURE (GAS) 

615.1273 

659.8735 

672.7450 

STATIC DENSITY (GAS) 

.1090 

.1257 

.1296 

STATIC DENSITY (MIXTURE) 

.1100 

.1263 

.1303 

AXIAL UELOCITY 

453.4937 

393.3181 

381.3665 

ABSOLUTE UELOCITY 

453.7047 

550.4457 

384.3807 

RELATIUE UELOCITY 

968.9383 

567.2865 


BLADE SPEED 

842.4238 

793.8823 

771.1864 

TANG. COMP. OF ABS. UEL 

. -13.8384 

385.0861 


TANG. COMP. OF REL. UEL 

. 856.2622 

408.7969 


ACOUSTIC SPEED 

1209.2863 

1264.6281 

1264.6584 

ABSOLUTE MACH NUMBER 

.3752 

.4395 

.3039 

RELATIUE MACH NUMBER 

.8012 

.4529 


FLOW COEFFICIENT 

. 3356 

.2910 

.4146 

FLOW AREA 

.4732 

.4730 

.4730 

ABSOLUTE FLOW ANGLE 

-1.7478 

44.3941 

7.1827 

RELATIUE FLOW ANGLE 

62.0934 

46. 1059 


INCIDENCE 

6.0234 

7.2241 


DEUIATION 


8.3755 

6.8027 

DIFFUSION RATIO 


2.0616 

1.7988 

MOMENTUM THICKNESS 


.0454 

.0925 

OMEGA (GAS) 


.08370 

.14084 

OMEGA (TOTAL) 


.03335 

. 14630 
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******************** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 3 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL FRESSURE RATIO= 1.258G3 

STAGE TOTAL TEMPERATURE RATIO= 1.08321 
STAGE ADIABATIC EFFICIENCY= .81235 



**STAGE INLET** 

**ST AGE OUTLET** 
(BEFORE INTER- 

**STAGE OUTLET** 
(AFTER INTER- 



STAGE ADJUST- 
MENT) 

STAGE ADJUST- 
MENT) 

xu= 

.00030 

.00030 

.00066 

xu= 

.00970 

.00970 

.00934 

xww= 

0 

0 

0 

XWT= 

.00970 

.00970 

.00934 

XAIR= 

.99000 

.99000 

.99000 

XMETAN= 

0 

0 

0 

XGAS 

.99030 

.93030 

.99066 

WMASS= 

.22897 

.22897 

.22063 

WWMASS= 

0 

0 

0 

WTMASS= 

.22897 

.22397 

.22063 

AMASS= 

23.37452 

23.37452 

23.37452 

CHMASS= 

0 

0 

0 

UMASS= 

.00714 

.00714 

.01547 

GMASS- 

23.38165 

23.38165 

23.38999 

TMASS= 

23.61062 

23.61062 

23.61062 

WS= 

.00031 

.00031 

.00066 

RHOA= 

.11681 

.12573 

.10361 

RHOM= 

.06065 

.12694 

.11968 

RHOG= 

.10896 

.12571 

.11856 

TG= 

632.36701 

684.99527 

684.93735 

TW= 

530.28344 

536.74693 

536.93S93 

TWW= 

513.70000 

0 

513.70000 

P= 

3941 . 092G6 

5052.10993 

49E0. 39231 

TB= 

703.23864 

0 

718.41424 

TDEW= 

444.74623 

441.53377 

459. 10895 
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INITIAL FLOW COEFFICIENT= .350 (STAGE= 4 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.17385 

STAGE TOTAL TEMPERATURE RAT 10= 1.060S1 

STAGE ADIABATIC EFFICIENCY= .73814 

STAGE FLOW CQEFFICIENT= .G43 
AXIAL UELOCITY= 537.02 
ROTOR SPEED= 313.87 



ROTOR INLET® 

«ROTOR OUTLET® * 

STATOR OUTLET* 

TOTAL PRESSURE 

43S0.3323 

5315.8244 

5852.5316 

STATIC PRESSURE 

4831. G 744 

47G4.0483 

5010.2461 

TOTAL TEMPERATURE ( GAS ) 

G84.9874 

72G.501G 

726.5016 

STATIC TEMPERATURE (GAS) 

G54.7733 

G83.575G 

635.4355 

STATIC DENSITY(GAS) 

.1211 

.1306 

.1350 

STATIC DENSITY (MIXTURE) 

.1222 

.1318 

.1363 

AXIAL UELOCITY 

537.0157 

594.240G 

607.7142 

AESOLUTE UELOCITY 

G01.7378 

720.7186 

613.1243 

RELATIUE UELOCITY 

916.9367 

G33.8393 


ELADE SPEED 

771.1864 

758.1814 

747.9928 

TANG. COMP. OP ADS. UEL. 

75.2373 

407.3154 


TANG. COMP. OF REL. UEL. 

695.9491 

350.3GG1 


ACOUSTIC SPEED 

1247.2434 

1285.7753 

1285.3397 

ABSOLUTE MACH NUMBER 

.4825 

.5655 

.4770 

RELATIUE MACH NUMBER 

.7352 

.5413 


FLOW COEFFICIENT 

.G490 

.6460 

.6858 

FLOW AREA 

.1614 

.1503 

.1422 

ABSOLUTE FLOW ANGLE 

7.1827 

34.4610 

7.6483 

RELATIUE FLOW ANGLE 

49.3755 

30.5237 


INCIDENCE 

.4556 

7.6810 


BEUIATION 


.8137 

-1.2117 

DIFFUSION RATIO 


1.5063 

1.4665 

MOMENTUM THICKNESS 


.0671 

.0246 

OMEGA (GAS) 


. 0S592 

.04828 

OMEGA (TOTAL) 


.10081 

. 0549! 
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INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 4 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.17935 

STAGE TOTAL TEMPERATURE RATIO= 1.0B0G0 
STAGE ADIABATIC EFFICIENCY= .79220 



**STAGE INLET*® 

**STAGE OUTLET®* 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**ST AGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

. 000GS 

.00066 

.00086 

xw= 

.00934 

.00934 

.00914 

XLIU= 

0 

0 

0 

XUIT= 

.00934 

.00934 

.00914 

XAIR= 

.99000 

.99000 

.99000 

XMETAN= 

0 

0 

0 

XGAS 

.990SS 

.99066 

.99086 

WMASS= 

.11004 

.11004 

.10759 

WWi'1ASS= 

0 

0 

0 

WTMASS= 

.11004 

.11004 

.10759 

AMASS= 

11.G5811 

11.65811 

11.65811 

CHMASS= 

0 

0 

0 

UMASS= 

.00772 

.00772 

.01017 

GMASS= 

11.66583 

11.66583 

11.66828 

TMASS= 

11.77587 

11.77587 

11.77587 

WS= 

.00066 

.00066 

.00087 

RHOA= 

.12573 

.13069 

.12076 

RHOM= 

. 068S5 

.13187 

.13624 

RHOG= 

.12109 

.13064 

.13500 

TG= 

684.98735 

726.50156 

726.49720 

TU= 

536.93993 

544.82405 

544.93474 

TWW= 

513.70000 

0 

513.70000 

P= 

4960.39231 - 

5915.82441 

5852.53159 

TB= 

718.41424 

0 

728.35202 

TBEW= 

459.10895 

463.41245 

470.03573 
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a******************* INITIAL FLOW COEFFICIENT= .350 (STAGE= 5 ) ******************* 

STAGE TOTAL PRESSURE RATIG= i. 20554 

STAGE TOTAL TEMPERATURE RATI0= 1.0G053 
STAGE ADIABATIC EFFICIENCY= .89526 

STAGE FLOW CQEFFICIENT= .585 
AXIAL UELOCITY= 507.75 
ROTOR SPEED= S8S.08 



*ROTOR INLET* 

•-‘ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

5852.5315 

7187.5S58 

7055.4587 

STATIC PRESSURE 

5009.9874 

5855.3853 

5207.9745 

TOTAL TEMPERATURE ( GAS ) 

725.4372 

770.4732 

770.4732 

STATIC TEMPERATURE (GAS) 

595.2200 

727.4180 

743.3088 

STATIC DENSITY(GAS) 

.1350 

.1508 

.1555 

STATIC DENSITY (MIXTURE) 

.1352 

.1522 

.1579 

AXIAL UELOCITY 

507.7622 

571.5426 

574.1788 

ABSOLUTE UELOCITY 

513.2175 

722.8373 

574.1925 

RELATIUE UELOCITY 

901.9057 

544.6347 


BLADE SPEED 

747.9928 

740. 8591 

739.3780 

TANG. COMP. OF ABS. UEL 

81.5139 

442.5115 


TANG. COMP. OF REL. UEL 

. 555.3789 

293.2574 


ACOUSTIC SPEED 

1284.5759 

1328.4398 

1328.3580 

ABSOLUTE MACH NUMBER 

.4773 

.5501 

.4323 

RELATIUE MACH NUMBER 

.7020 

.4905 


FLOW COEFFICIENT 

.6859 

.6450 

.6538 

FLOW AREA 

. 1422 

.1354 

.1299 

ABSOLUTE FLOW ANGLE 

7.5483 

37.7548 

-.4174 

RELATIUE FLOW ANGLE 

47.5340 

27.5576 


INCIDENCE 

7.5940 

7.3743 


DEUIATION 


.7975 

-1.8274 

DIFFUSION RATIO 


1.5750 

1.5374 

MOMENTUM THICKNESS 


.0017 

.0519 

OMEGA (GAS) 


.00244 

.09259 

OMEGA (TOTAL) 


.00750 

.03918 
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tfr<-«a-K-***e*»fl****»*** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 5 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT ( JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.20554 

STAGE TOTAL TEMPERATURE RATIO= 1.0G053 
STAGE ADIABATIC EFFICIENCY= .8SS31 



**STAGE INLET** 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

. 000SB 

.00088 

.00108 

xu= 

.00914 

.00914 

.00894 

xww= 

0 

0 

0 

XWT= 

.00914 

.00914 

.00894 

XAIR= 

.99000 

.99000 

.99000 

XMETAN= 

0 

0 

0 

XGAS 

.99088 

•9308G 

.99108 

WMASS= 

.10759 

.10759 

.10525 

WWMASS= 

0 

0 

0 

WTMASS= 

.10759 

.10759 

.10525 

AMASS= 

11.85811 

11.85811 

11.85811 

CHMASS= 

0 

0 

0 

UMASS= 

.01017 

.01017 

.01251 

GMASS= 

11.88828 

11.88828 

11.87082 

TMASS= 

11.77587 

11.77587 

11.77587 

WS= 

.00087 

.00087 

.00107 

RH.OA= 

.15099 

.15093 

.14273 

RHOM= 

. 06885 

. 15224 

.15788 

Rh'OG= 

.13500 

.15085 

.15847 

TG= 

728.49720 

770.47318 

770.48923 

TW= 

544.93474 

553.18879 

553.27132 

TWW= 

513.70000 

0 

513.70000 

P= 

5852.53159 

7187.59878 

7055.48888 

TB= 

728.35202 

0 ' 

739.92028 

TEEW= 

470.03573 

475.30738 

480.23428 
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*ett*«9a**«»*B**e*»*a INITIAL FLOW COEFFICIENT 3 .350 (STAGE 3 S ) ******************* 

STAGE TOTAL PRESSURE RATIO 3 1.18814 

STAGE TOTAL TEMPERATURE RATIO 3 1.05936 
STAGE ADIABATIC EFFICIENCY 3 .83795 

STAGE FLOW COEFFICIENT 3 .664 


AXIAL UELOCITY 3 574. 

25 



ROTOR SPEED 3 865.04 




-3 

ROTOR INLET* 

'-ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

7055.4687 

8483.2978 

8382.8980 

STATIC PRESSURE 

6207.8032 

7244.4473 

7512.3139 

TOTAL TEMPERATURE (GAS) 

770.4632 

816.2033 

816.2033 

STATIC TEMPERATURE ( GAS ) 

743.1425 

780.9621 

791.5621 

STATIC DENSITY(GAS) 

. 1565 

.1733 

.1778 

STATIC DENSITY (MIXTURE) 

. 1579 

.1753 

. 1794 

AXIAL UELOCITY 

574.2506 

536.7638 

545.1638 

ABSOLUTE UELOCITY 

574.2659 

655.1733 

547.8504 

RELATIUE UELOCITY 

933.4932 

644.9105 


BLADE SPEED 

739.3780 

733.1655 

728.2783 

TANG. COMP. OF ABS. UEL. 

-4.1834 

375.6824 


TANG. COMP. OF REL. UEL. 

743.5614 

357.4831 


ACOUSTIC SPEED 

1327.5334 

1370.2288 

1370.1024 

ABSOLUTE MACH NUMEER 

.4326 

.4814 

.3999 

RELATIUE MACH NUMBER 

.7077 

.4739 


FLOW COEFFICIENT 

.6638 

.6205 

.6437 

FLOW AREA 

.1299 

.1251 

.1204 

ABSOLUTE FLOW ANGLE 

-.4174 

34.9883 

5.6349 

RELATIUE FLOW ANGLE 

52.3212 

33.6635 


INCIDENCE 

6 . 6312 

2.3083 


DEUIATION 


7.0235 

-.8651 

DIFFUSION RATIO 


1.7283 

1.4834 

MOMENTUM THICKNESS 


.0427 

.0361 

OMEGA (GAS) 


.06517 

.07403 

OMEGA (TOTAL) 


.07004 

.08104 
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**«*»*«****»»**»**»* INITIAL FLOW COEFFICIENT= .350 ( ISTAGE= 6 ) 
STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT ( JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= ' 1.18814 

STAGE TOTAL TEMPERATURE RATIO= 1.05335 
STAGE ADIABATIC EFFICIENCY= .83802 



«*ST AGE INLET*-* 

«*STAGE OUTLET--* 
(BEFORE INTER- 
STAGE ADJUST- 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.0010G 

.0010G 

.00139 

xu= 

.00894 

.00894 

. 0O8G1 

XRW= 

0 

0 

0 

XWT= 

.00894 

.00894 

. 008G1 

XAIR= 

.99000 

.99000 

.99000 

XMETAN= 

0 

0 

0 

XGAS 

.99105 

.99106 

.93139 

WMASS= 

.10525 

.10525 

.10136 

URi1ASS= 

0 

0 

0 

UTMASS= 

.10525 

.10525 

. 10136 

AMASS= 

11.65811 

11.65811 

11.65811 

CHi'lASS= 

0 

0 

0 

UMASS= 

.01251 

.01251 

.01640 

GMASS= 

11.G70G2 

11.G7062 

11.67451 

TMASS= 

11.77587 

11.77537 

11.77587 

US= 

.00107 

.00107 

.00141 

Rh'OA= 

. 171G4 

.17391 

. 16427 

RHOM= 

. 0G8S5 

. 1753G 

. 17929 

RHOG= 

.15647 

.17380 

. 17775 

TG= 

770.4G923 

81G. 20331 

816.19706 

TUI- 

553.27132 

560.23663 

560.40405 

Tk!U= 

513.70000 

0 

513.70000 

P= 

7055.4S8G8 

8483.29781 

8382.39797 

TB= 

739.9202G 

0 

750.91936 

TDEW= 

480.2342G 

485. 16514 

492.25926 


•*«-***••••******«**» 
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******************** INITIAL FLOW COEFFICIENT= .350 (STAGE= 7 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.16834 

STAGE TOTAL TEMPERATURE RATIO= 1.05032 
STAGE ADIABATIC EFFICIENCY= .8863? 

STAGE FLOW COEFFICIENT^ .644 
AXIAL UELOCITY= 545.39 
ROTOR SPEED= 846.98 


--ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

8332.8930 

9838.1373 

9794.0340 

STATIC PRESSURE 

7511.8546 

8460.5242 

8832.8928 

TOTAL TEMPERATURE (GAS) 

816.1971 

857.2672 

857.2672 

STATIC TEMPERATURE ( GAS ) 

791.4182 

820.5982 

832.9542 

STATIC DENSITY(GAS) 

.1778 

.1931 

.1986 

STATIC DENSITY (MIXTURE) 

. 1793 

.1948 . 

.2003 

AXIAL UELOCITY 

545.3897 

533.4645 

543.8031 

ABSOLUTE UELOCITY 

548.0853 

663.7228 

545.3371 

RELATIUE UELOCITY 

867.010? 

618.5630 


BLADE SPEED 

728.2703 

718.0068 

713.9479 

TANG. COMP. OF AES. UEL. 

54.2919 

404.9002 


TANG. COMP. OF REL. UEL. 

673.9864 

313.1066 


ACOUSTIC SPEED 

1369.2681 

1404.8882 

1404.7433 

ABSOLUTE MACH NUMBER 

.4003 

.4803 

.3882 

RELATIUE MACH NUMBER 

.6332 

.4436 


FLOW COEFFICIENT 

.6439 

.6298 

.6601 

FLOW AREA 

.1204 

.1133 

.1081 

ABSOLUTE FLOW ANGLE 

5.6849 

37.1985 

4.3143 

RELATIUE FLOW ANGLE 

51.0202 

30.4100 


INCIDENCE 

8.0102 

3.7585 


DEUIATION 


5.6300 

-.9257 

DIFFUSION RATIO 


1.6309 

1.5201 

MOMENTUM THICKNESS 


.0178 

.0332 

OMEGA (GAS) 


.03071 

.06560 

OMEGA (TOTAL) 


.03600 

.07241 
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a***:;**********-*** 


INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 


7 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.1G834 

STAGE TOTAL TEMPERATURE RATIO= 1.05031 
STAGE ADIABATIC EFFICIENCY= .88648 



"'-"•STAGE INLET* 5 * 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT ) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00139 

.00139 

.00179 

xw= 

. 008S1 

.00861 

.00321 

xww= 

0 

0 

0 

XWT= 

.00861 

.00861 

.00821 

XAIR= 

.99000 

.99000 

.99000 

XMETAN= 

0 

0 

0 

XGAS 

.99133 

.99139 

.99179 

WMASS= 

.10136 

.10136 

. 09665 

WWMASS= 

0 

0 

0 

WTMASS= 

.10136 

.10136 

.09665 

AMASS= 

11.65811 

11.65811 

11.65811 

CHMASS= 

0 

0 

0 

UMASS= 

.01640 

.01640 

.02111 

GMASS= 

11.67451 

11.67451 

11.67923 

TMASS= 

11.77587 

11.77537 

11.77587 

WS= 

.00141 

.00141 

.00181 

RHOA= 

.19251 

.19329 

.18432 

RHOM= 

.06865 

.19480 

.20020 

RH0G= 

.17775 

.19313 

.19856 

TG= 

816.19706 

857.26715 

857.25595 

TW= 

560.40405 

566.27814 

566.47941 

TWW= 

513.70000 

0 

513.70000 

P= 

8382.89797 

9898.13726 

9794.03401 

TB= 

750.91936 

0 

('58.50323 

TDEW= 

492.25926 

488.21208 

495.21127 
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«eaaai»e»&9««B«B£*s*a INITIAL FLOW COEFFICIENT= .350 (STAGE= 8 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.19433 

STAGE TOTAL TEMPERATURE RATIO= 1.0G479 
STAGE ADIABATIC EFFICIENCY= .78429 

STAGE FLOW COEFFICIENT= .GEO 


AXIAL UELOCITY= 544. 
ROTOR SPEED= 823.79 

10 



w 

ROTOR INLET* 

-"-ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

9794.0340 

11971.7421 

11697.3285 

STATIC PRESSURE 

8832.2419 

9945.2950 

10559.2522 

TOTAL TEMPERATURE (GAS) 

857.2G00 

912.8051 

912.8051 

STATIC TEMPERATURE (GAS) 

832.8133 ■ 

867.0049 

887.2369 

STATIC DENSITY(GAS) 

. 198G 

.2148 

.2228 

STATIC DENSITY (MIXTURE) 

.2002 

.2165 

.2247 

AXIAL UELOCITY 

544.1029 

533.8952 

540.5290 

ABSOLUTE UELOCITY 

545.G491 

750.0474 

560. 4088 

RELATIUE UELOCITY 

8S5.35GS 

5E2.2723 


BLADE SPEED 

713.9479 

703. 1795 

701.1086 

TANG. COMP. OF ADS. UEL. 

41.0483 

52G.8084 


TANG. COMP. OF REL. UEL. 

G72.3997 

176.3711 


ACOUSTIC SPEED 

1404. 000G 

1443.2436 

1449.1529 

ABSOLUTE MACH NUMBER 

.3886 

.5236 

.3867 

RELATIUE MACH NUMBER 

.6164 

.3925 


FLOW COEFFICIENT 

. 6605 

.6481 

.6738 

FLOW AREA 

.1081 

.1019 

.0970 

ABSOLUTE FLOW ANGLE 

4.3143 

44.6172 

15.3086 

RELATIUE FLOW ANGLE 

51.0412 

18.2809 


INCIDENCE 

8.8112 

6.9172 


BEUIATION 


3.0309 

-.9214 

DIFFUSION RATIO 


1.8585 

1.6335 

MOMENTUM THICKNESS 


.0773 

.0830 

OMEGA (GAS) 


. 0S906 

.13021 

OMEGA (TOTAL) 


.10296 

. 1354c 
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bbbbbbbbbbbbbbsbbbb-s INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 8 ) ******************** 

STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.19433 

STAGE TOTAL TEMPERATURE RATIO= 1.06478 
STAGE ADIABATIC EFFICIENCY= .78435 



* -STAGE INLET** 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

xu= 

.00179 

.00179 

.00227 

xw= 

.00821 

.00821 

.00773 

xww= 

0 

0 

0 

XWT= 

.00821 

.00821 

.00773 

XAIR= 

.99000 

.99000 

. S9000 

XMETAN= 

0 

0 

0 

XGAS 

.99179 

.99179 

.99227 

WMASS= 

. 09SG5 

. 09GG5 

.09102 

WWMASS= 

0 

0 

0 

WTMASS= 

. 09665 

. 09GG5 

.09102 

AMASS= 

11.65811 

11.65811 

11.65811 

CHMASS= 

0 

0 

0 

UMASS= 

.02111 

.02111 

.02674 

GMASS= 

11.67923 

11.67923 

11.68486 

TMASS= 

1 1 . 77587 

11.77587 

11.77587 

WS= 

.00181 

.00181 

.00229 

RHOA= 

.21414 

.21503 

.20689 

RMOM= 

. 0G8S5 

.21657 

.22449 

RHOG= 

. 1985G 

.21480 

.22276 

TG= 

857.25995 

912.80515 

912.79698 

TW= 

5GG. 47941 

573.29128 

573.53202 

TWW= 

513.70000 

0 

513.70000 

P= 

9794.03401 

11971.74213 

11697.32848 

TB= 

758.50323 

0 

770.96403 

TDEW= 

495.21127 

501.19053 

507.G759G 
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tt******************* INITIAL FLOW CQEFFICIENT= .350 (STAGE= 9 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.15314 

STAGE TOTAL TEMPERATURE RATIO= 1.0440B 
STAGE ADIABATIC EFFICIENCY= .91622 

STAGE FLOW COEFFICIENT= .674 
AXIAL UELOCITY= 540.94 
ROTOR SFEED= 802.25 



*ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

11697.3285 

13562.4981 

13488.7085 

STATIC PRESSURE 

10558. 23B9 

11438.2002 

12345.8699 

TOTAL TEMPERATURE (GAS) 

912.7970 

953.0108 

953.0108 

STATIC TEMPERATURE (GAS) 

887. 1377 

909.2209 

929.9980 

STATIC DENSITY(GAS) 

.2228 

.2355 

.2485 

STATIC DENSITY (MIXTURE) 

. 2245 

.2373 

.2504 

AXIAL UELOCITY 

540.9379 

537.9239 

509.7709 

ABSOLUTE UELOCITY 

5S0.8377 

735.6089 

533.2668 

RELATIUE UELOCITY 

773.6043 

574.0298 


BLADE SPEED 

701.1086 

702. 1027 

1041.9876 

TANG. COMP. OF AES. UEL 

. 148.0712 

501.7488 


TANG. COMP. OF REL. UEL 

. 553.0375 

200.3538 


ACOUSTIC SPEED 

1448.0275 

1482.3597 

1482.5966 

ABSOLUTE MACH NUMEER 

.3873 

.5018 

.3597 

RELATIUE MACH NUMBER 

.5342 

.3916 


FLOW COEFFICIENT 

.6743 

.6705 

.4336 

FLOW AREA 

.0970 

.0923 

.0923 

ABSOLUTE FLOW ANGLE 

15.3086 

43.0069 

17.0804 

RELATIUE FLOW ANGLE 

45.6337 

20.4280 


INCIDENCE 

.4937 

6.1869 


DEUIATION 


4.3680 

.5804 

DIFFUSION RATIO 


1.6979 

1.7102 

MOMENTUM THICKNESS 


.0199 

.0164 

OMEGA (GAS) 


.03440 

. 02985 

OMEGA (TOTAL) 


.03966 

.03474 
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*■**»£■»****«■<-*#•***'»«» INITIAL FLOW COEFFICIENT 3 .350 (ISTAGE= 9 ) ********************* 


STAGE PERFORMANCE AFTER 

INTER-STAGE ADJUSTMENT C JPERFM=2) 

STAGE TOTAL 

PRESSURE RATIO 3 1.15314 


STAGE TOTAL 

TEMPERATURE 

RATIO 3 1.04405 


STAGE ADIABATIC EFFICIENCY 3 .91628 


**ST AGE INLET** 

**STAGE OUTLET** 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT) 

MENT) 

XU= 

.00227 

.00227 

.00323 

XW= 

.00773 

.00773 

0 

XWW= 

0 

0 

0 

XWT= 

.00773 

.00773 

0 

XAIR= 

.99000 

.99000 

.99677 

XMETAN= 

0 

0 

0 

XGAS 

.99227 

.99227 

1.00000 

WMASS= 

.09102 

.09102 

0 

WWMASS= 

0 

0 

0 

UTNASS= 

.09102 

.09102 

0 

AMASS 3 

11.G5S43 

11.65843 

11.65843 

CHMASS 3 

0 

0 

0 

UMASS 3 

. 02G74 

.02674 

. 03775 

GMASS 3 

11.6848G 

1 1 .68486 

11.69618 

TMASS 3 

11.77587 

11.77587 

11.69618 

WS= 

.00229 

.00229 

.00324 

RHOA 3 

.24019 

.23584 

.22455 

RHOM 3 

. 0G8G5 

.23734 

. 24383 

RHOG= 

.22276 

.23551 

.24383 

TG= 912 

. 79G98 

953.01083 

953.00241 

TU 3 573 

.53202 

579.35901 

579.85191 

TWW= 513.70000 

0 

513.70000 

P= 11G97. 

32848 

13562.49810 

13488.70848 

TB= 770 

. 9G403 

0 

781.26234 

TDEW= 507.G759G 

512.29293 

523.15571 
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«««*»«»•««**»««*««»« INITIAL FLOW COEFFICIENT= .350 (STAGE=10 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.25133 

STAGE TOTAL TEMPERATURE RATIO= 1.07043 
STAGE ADIABATIC EFFICIENCY= .S0S32 

STAGE FLOW COEFFICIENT* .493 
AXIAL UELOCITY= 579.69 
ROTOR SFEED=1 175. 57 


*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

13488.7085 

16955.7969 

16878.8813 

STATIC PRESSURE 

12035.8382 

14079.4285 

15214.1927 

TOTAL TEMPERATURE (GAS) 

953.0024 

1020.1251 

1020.1251 

STATIC TEMPERATURE (GAS) 

923.3843 

963.9355 

991.2079 

STATIC DENSITY(GAS) 

.2438 

.2718 

.2871 

STATIC DENSITY (MIXTURE) 

.2438 

.2718 

.2871 

AXIAL UELOCITY 

579.6851 

553.7134 

548.2050 

ABSOLUTE UELOCITY 

606.4326 

797.3829 

599.3135 

RELATIUE UELOCITY 

1040.3398 

730.3217 


BLADE SPEED 

1041.9876 

1049.9830 

1063.0217 

TANG. COMP. OF AES. UEL. 

178.1171 

573.7779 


TANG. COMP. OF REL. UEL. 

863.8704 

476.2051 


ACOUSTIC SPEED 

1482.1341 

1535.5486 

1535.6019 

ABSOLUTE MACH NUMBER 

.4092 

.5252 

.3903 

RELATIUE MACH NUMBER 

.7019 

.4810 


FLOW COEFFICIENT 

.4931 

.4710 

.4669 

FLOW AREA 

.0827 

.0777 

.0743 

ABSOLUTE FLOW ANGLE 

17.0804 

46.0195 

23.8340 

RELATIUE FLOW ANGLE 

56.1371 

40.6962 


INCIDENCE 

6.6171 ' 

9.6055 


DEUIATION 


2.77E2 

1.0540 

DIFFUSION RATIO 


1.7602 

1.8273 

MOMENTUM THICKNESS 


.0367 

.0179 

OMEGA (GAS) 


.06069 

. 02674 

OMEGA (TOTAL) 


.06069 

. 02674 
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***********-*****■**** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 10 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.25133 

STAGE TOTAL TEMPERATURE RATIO= 1.07043 
STAGE ADIABATIC EFFICIENCY= .90B32 


■si 

“STAGE INLET** 

““STAGE OUTLET«“ 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

““STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= 

.00323 

.00323 

.00323 

xw= 

0 

0 

0 

XWUI= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

•99S77 

.99677 

.99677 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WUMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11.G5843 

11.65843 

11.65843 

CHMASS= 

0 

0 

0 

UMASS= 

.03775 

.03775 

.03775 

GMASS= 

0 

0 

11.69618 

TMASS= 

11.GS618 

11.69618 

11.69618 

WS== 

.00324 

.00324 

.00323 

RHOA= 

•2G529 

.27222 

.28763 

RHOM= 

. 0G8G5 

.27169 

.28706 

RHOG= 

.24383 

.27169 

.28706 

TG= 

953.00241 

1020.12508 

1020.12508 

TU= 

579.85191 

579.85191 

579.85191 

TWW= 

513.70000 

0 

513.70000 

P= 13488. 7084S 

16955.79693 

16878.83133 

TB= 

781.2G234 

0 

798.03560 

TDEW= 

523.15571 

530.77756 

530.77756 
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INITIAL FLOW COEFFICIENT= .350 (STAGE=11 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.25400 

STAGE TOTAL TEMPERATURE RATIO= 1.07040 
STAGE ADIABATIC EFFICIENCY= .S0808 

STAGE FLOW COEFFICIENT= .407 
AXIAL UELOCITY= 548.33 
ROTOR SPEED=1174. 10 


-"•ROTOR INLET* -ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

18878.8813 

21308.9086 

21166.0901 

STATIC PRESSURE 

15213.5873 

17529.1223 

19417.6666 

TOTAL TEMPERATURE ( GAS ) 

1020.1251 

1091.9402 

1091.9402 

STATIC TEMPERATURE C GAS) 

931.4025 

1034. S083 

1066.3684 

STATIC DENSITY(GAS) 

.2871 

.3168 

.3406 

STATIC DENSITY (MIXTURE) 

.2871 

.3168 

.3406 

AXIAL UELOCITY 

548.3345 

525.1969 

508.7548 

ABSOLUTE UELOCITY 

599.4582 

844.8455 

565.7171 

RELATIUE UELOCITY 

937.0988 

664.0872 


BLADE SPEED 

1083.0217 

1068.1879 

1075.3223 

TANG. COMP. OF ABS. UEL. 

242.2334 

681.7644 


TANG. COMP. OF REL. UEL. 

820.7883 

406.4235 


ACOUSTIC SPEED 

1533.5405 

1590.3555 

1580.4641 

ABSOLUTE MACH NUMBER 

.3909 

.5392 

.3557 

RELATIUE MACH NUMBER 

.6437 

.4238 


FLOW COEFFICIENT 

.4670 

.4473 

.4333 

FLOW AREA 

.0743 

.0703 

.0675 

ABSOLUTE FLOW ANGLE 

23.8340 

51.5634 

25.9343 

RELATIUE FLOW ANGLE 

56.2548 

37.7345 


INCIDENCE 

8.2348 

9.9434 


DEUIATION 


4.1445 

1.6543 

DIFFUSION RATIO 


1.9336 

2.0672 

MOMENTUM THICKNESS 


.0429 

.0273 

OMEGA (GAS) 


.05990 

. 037c 

OMEGA (TOTAL) 


.05990 

. 03c 
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**<-*****<•#**«»*■»•!!••*«•« INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 11 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.25400 

STAGE TOTAL TEMPERATURE RATIO= 1.07040 
STAGE ADIABATIC EFFICIENCY= .30808 



**STAGE INLETS 

**STAGE OUTLET** 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.00323 

.00323 

.00323 

xw= 

0 

0 

0 

xww= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

0 

0 

.93877 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WUIMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11.85843 

11.85843 

11.85843 

CHMASS= 

0 

0 

0 

UMASS= 

.03775 

.03775 

.03775 

GMASS= 

11.69818 

11.83818 

11.89818 

TMASS= 

11.83818 

11.83818 

11.89818 

US= 

.00323 

.00323 

.00323 

RHOA= 

.31012 

.31723 

.34123 

RHOM= 

.08885 

.31887 

.34058 

RHOG= 

.28708 

.31887 

.34058 

TG= 

1020.12508 

1091.94022 

1031.34022 

TW= 

573.85131 

573.85131 

579.85191 

TUN- 

513.70000 

0 

513.70000 

P= 1 8878. 88 133 

21306.90858 

21188.09012 

TE= 

738.03580 

0 

815.71487 

TDEW= 

0 

538.61312 

533.81312 
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*«**»« *************** INITIAL FLOW COEFFICIENT= .350 (STAGE=12 ) ******************* 

STAGE TOTAL FRESSURE RATIO= 1.2341? 

STAGE TOTAL TEMPERATURE RATIO= 1.0BB03 
STAGE ADIABATIC EFFICIENCY= .8893? 

STAGE FLOW COEFFICIENT= .433 
AXIAL UELOCITY= 508.8? 

ROTOR SPEED=11?4. 10 


*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

211SS.0901 

26339.5226 

26122.4493 

STATIC PRESSURE 

1941?. 03G? 

22053.6228 

24191.6179 

TOTAL TEMPERATURE ( GAS ) 

1091.9402 

1164.0924 

1164.0924 

STATIC TEMPERATURE (GAS) 

10SS.5G48 

1109.1614 

1139.9845 

STATIC DENSITY(GAS) 

. 340S 

.3?20 

.3970 

STATIC DENSITY (MIXTURE) 

. 340S 

. 3?20 

.3370 

AXIAL UELOCITY 

508.8S50 

494.8160 

485.6343 

ABSOLUTE UELOCITY 

565.8483 

832.6?39 

551.6271 

RELATIUE UELOCITY 

9?1 . ?434 

641.0692 


BLADE SPEED 

10?5. 3223 

10??. 2904 

1081.8416 

TANG. COMP. OF ABS. UEL. 

24?. 468? 

663. ?03? 


TANG. COMP. OF REL. UEL. 

82?. 853S 

40?. 586? 


ACOUSTIC SPEED 

1588. OGU 

1641.7676 

1641.8106 

ABSOLUTE MACH NUMBER 

.3563 

.5142 

‘ .3360 

RELATIUE MACH NUMBER 

.6119 

.3959 


FLOW COEFFICIENT 

.4334 

.4214 

.4136 

FLOW AREA 

. 06?5 

.0635 

.0607 

ABSOLUTE FLOW ANGLE 

25.9343 

53.5409 

28.3138 

RELATIUE FLOW ANGLE 

58.4218 

39.4788 


INCIDENCE 

10.0818 

10.9109 


DEUIATION 


5.5788 

2.5238 

DIFFUSION RATIO 


2.0250 

2.1596 

MOMENTUM THICKNESS 


.0552 

.0371 

OMEGA (GAS) 


.07232 

.05071 

OMEGA (TOTAL) 


.07232 

.05071 
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******************** INITIAL FLOU COEFFICIENT= .350 (ISTAGE= 12 ) ******************** 


STAGE PERFORMANCE AFTER 

INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO= 1.23417 

STAGE TOTAL TEMPERATURE RATIO= 1.0GG08 

STAGE ADIABATIC EFFICIENCY= .83937 


-:f*STAGE INLET--* 

**STAGE OUTLET** 
(BEFORE INTER- 

**STAGE OUTLET** 
(AFTER INTER- 


STAGE ADJUST- 
MENT) 

STAGE ADJUST- 
MENT) 

XU= .00323 

.00323 

.00323 

XW= 0 

0 

0 

XUU= 0 

0 

0 

XWT= 0 

0 

0 

XAIR= .99677 

.99677 

.99677 

XMETAN= 0 

0 

0 

XGAS 1.00000 

1.00000 

1.00000 

WMASS= 0 

0 

0 

WWMASS= 0 

0 

0 

UTMASS= 0 

0 

0 

AMASS= 11.G5843 

11.65843 

11.65843 

CHi1ASS= 0 

0 

0 

UMASS= .03775 

.03775 

.03775 

GMASS= 11.G9S18 

11 .69618 

11.69618 

TMASS= 11.GSG18 

11.69618 

11.69618 

US- .00323 

.00323 

.00323 

RHOA= . 3G332 

.37257 

.39767 

RHOM= . 0G865 

.37184 

.39690 

RH0G= . 3405G 

.37184 

.39690 

TG= 1091.94022 

1164.09235 

1164.09235 

TU!= 579.85191 

579.85191 

579.85191 

TU!N= 513.70000 

0 

513.70000 

P= 211GG. C9012 

26339. 5225G 

26122.44926 

TB= 815.714G7 

0 

832.865 73 

TDEW= 538.G1312 

0 

0 
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INITIAL FLOW COEFFICIENT= .350 (STAGE=13 ) ******************* 


STAGE TOTAL PRESSURE RATIO= 1.19922 

STAGE TOTAL TEMPERATURE RAT 10= 1.0574? 

STAGE ADIABATIC EFFICIENCY= .87183 


STAGE FLOW COEFFICIENT= .414 
AXIAL UELOCITY= 485.73 
ROTOR SPEED=i 174. 10 


*ROTOR INLET* *ROTOR OUTLET* *STATOR OUTLET* 


TOTAL PRESSURE 

26122.4493 

31661.6344 

31326.6191 

STATIC PRESSURE 

24191.0301 

27055.7035 

29290.5888 

TOTAL TEMPERATURE (GAS) 

1164.0924 

1230.9900 

1230.9900 

STATIC TEMPERATURE (GAS) 

1140.1793 

1179.8090 

1208.8454 

STATIC DENSITY (GAS) 

.3969 

.4230 

.4533 

STATIC DENSITY (MIXTURE) 

.3969 

.4290 

.4533 

AXIAL UELOCITY 

485.7291 

475.9732 

470.7799 

ABSOLUTE UELOCITY 

551.7369 

807.3125 

531.0324 

RELATIUE UELOCITY 

953. 1966 

645.0096 


BLADE SPEED 

1081.8416 

1087.3769 

1094.1423 

TANG. COMP. OF AB5. UEL. 

261.6886 

652.0759' . 


TANG. COMP. OF REL. UEL. 

820.1531 

435.3010 


ACOUSTIC SPEED 

1639.2478 

1687.871? 

1687.8872 

ABSOLUTE MACH NUMBER 

.3366 

.4841 

.3146 

RELATIUE MACH NUMBER 

.5815 

.3868 


FLOW COEFFICIENT 

.4137 

.4054 

.4010 

FLOW AREA 

.060? 

.0573 

.0548 

ABSOLUTE FLOW ANGLE 

28.3138 

53.8730 

27.5588 

RELATIUE FLOW ANGLE 

59.3642 

42.4445 


INCIDENCE 

11.5842 

11.9330 


DEUIATION 


6.0545 

3.6288 

DIFFUSION RATIO 


2.0337 

2.2912 

MOMENTUM THICKNESS 


.0481 

.0531 

OMEGA (GAS) 


.07162 

.07274 

OMEGA (TOTAL) 


.07162 

.07274 
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INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 13 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 


STAGE TOTAL PRESSURE RATIO= 1.19922 

STAGE TOTAL TEMPERATURE RATIO= 1.0574? 
STAGE ADIABATIC EFFICIENCY= .87183 


* 

-“-STAGE INLET** 

**STAGE OUTLET*® 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT) 

MENT) 

xu= 

.00323 

.00323 

.00323 

xw= 

0 

0 

0 

xww= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

.9SS77 

.9967? 

.39677 

XMETAN= 

0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

WWMASS= 

0 

0 

0 

WTMASS= 

0 

0 

0 

AMASS= 

11.B5843 

11.65843 

11.65843 

CHMASS= 

0 

0 

0 

UMASS= 

.03775 

.03775 

.03775 

GMASS= 

11.6SS18 

11.69618 

11.69618 

TMASS= 

11.GSG18 

11.69618 

11.69618 

WS= 

.00323 

.00323 

.00323 

RHQA= 

.420G0 

.42965 

.45408 

RHOM= 

.06855 

.42881 

.45319 

RHOG= 

.39690 

.42881 

.45319 

TG= 

1164.09235 

1230.93003 

1230.99003 

TW= 

579.85191 

579.S5191 

579.85191 

TWW= 

513.70000 

0 

513.70000 

P= 25 

122.44926 

31661.63440 

31326.61915 

TB= 

832.86573 

0 

848.26644 

TDEW= 

0 

552.76242 

552.76242 
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»#»«B#99e*«59#*a*»*9 INITIAL FLOW COEFFICIENT= .350 (STAGE=14 ) ******************* 

STAGE TOTAL PRESSURE RATIO= 1.21348 

STAGE TOTAL TEMPERATURE RATIO= 1.06059 
STAGE ADIABATIC EFFICIENCY= .87416 

STAGE FLOW COEFFICIENT= .401 
AXIAL UELOC I TY= 470.85 
ROTOR SPEED=1 174. 10 



*ROTOR INLET* 

*ROTOR OUTLET* *: 

STATOR OUTLET* 

TOTAL PRESSURE 

3132S.B191 

38376.2820 

38014.2054 

STATIC PRESSURE 

29230.0380 

32928.1181 

35979.4058 

TOTAL TEMPERATURE (GAS) 

1230.9900 

1305.5736 

1305.5736 

STATIC TEMPERATURE (GAS) 

1209.0153 

1253.1074 

1286.4745 

STATIC DENSITY (GAS) 

.4532 

.4916 

.5232 

STATIC DENSITY (MIXTURE) 

.4532 

.4916 

.5232 

AXIAL UELOCITY 

470.8539 

457.2813 

447.2369 

ABSOLUTE UELOCITY 

531.11G4 

820.8047 

495.2298 

RELAX I UE UELOCITY 

970.3164 

617.7523 


BLADE SPEED 

1094.1423 

1096.9714 

1101.6457 

TANG. COMP. OF AB5. UEL 

. 245.7258 

681.6261 


TANG. COMP. OF REL. UEL 

. 848.4164 

415.3453 


ACOUSTIC SPEED 

1685.4136 

1738.5498 

1738.5660 

ABSOLUTE MACH NUMBER 

.3151 

.4784 

.2848 

REL AT I UE MACH NUMBER 

.5757 

.3600 


FLOW COEFFICIENT 

.4010 

.3895 

.3809 

FLOW AREA 

.0548 

.0520 

.0500 

ABSOLUTE FLOW ANGLE 

27.5588 

56.1436 

25.4331 

RELATIUE FLOW ANGLE 

60.9706 

42.2486 


INCIDENCE 

10.9506 

12.1136 


DEUIATION 


5.3286 

4.5331 

DIFFUSION RATIO 


2.1864 

2.5441 

MOMENTUM THICKNESS 


.0635 

.0550 

OMEGA (GAS) 


.08328 

.06646 

OMEGA (TOTAL) 


.08328 

. 06646 
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****«*•»*******»**>»» INITIAL FLOW COEFFICIENT 3 .350 (ISTAGE= 14 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT (JPERFM=2) 

STAGE TOTAL PRESSURE RATIO 3 1.21348 

STAGE TOTAL TEMPERATURE RATIO 3 1.0G059 

STAGE ADIABATIC EFFICIENCY 3 .S?4lS 

---’"•STAGE INLET** 

**STAGE OUTLET** 
(BEFORE INTER- 
STAGE ADJUST- 
MENT) 

**STAGE OUTLET** 
(AFTER INTER- 
STAGE ADJUST- 
MENT) 

XU= .00323 

.00323 

.00323 

XU1= 0 

0 

0 

XWW= 0 

0 

0 

XWT 3 0 

0 

0 

XAIR= .9957? 

.99577 

.99577 

XMETAN 3 0 

0 

0 

XGAS 0 

0 

1.00000 

WMASS 3 0 

0 

0 

WWNASS 3 0 

0 

0 

WTMASS 3 0 

0 

0 

AMASS 3 11 .55843 

11.55843 

11.55843 

CHMASS 3 0 

0 

0 

UMASS 3 .03775 

.03775 

.03775 

GMASS 3 11.G9S18 

11.59518 

11.59518 

TMASS 3 11.B9S18 

11.69518 

11.59518 

WS= .00323 

.00323 

.00323 

RHOA 3 .47599 

.49230 

.52413 

RHOM 3 .05855 

.49133 

.52310 

RHOG= .45319 

.49133 

.52310 

TG= 1230.99003 

1305.57354 

1305.57354 

TW 3 579.85191 

579.85191 

579.85191 

TWW 3 513.70000 

0 

513.70000 

P= 31326. G19.15 

38375.28195 

38014.20544 

TE 3 848.25544 

0 

855.30795 

TDEW 3 552.75242 

559.90494 

559.90494 
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***«««»«*»*»*«*a*s*-* INITIAL FLOW COEFFICIENT= .350 (STAGE=15 ) ******************* 

'• STAGE TOTAL PRESSURE RATIO= 1.1SS52 

STAGE TOTAL TEMPERATURE RAT 10= 1.0503? 

STAGE ADIABATIC EFFICIENCY= .03916 

STAGE FLOW CCEFFICIENT= .381 
AXIAL UELOCITY= 447.30 
ROTOR SPEED=1174. 10 


* 

ROTOR INLET* 

-"-ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

38014.2054 

45028.227? 

44458.2810 

STATIC PRESSURE 

35978.9591 

40042.8265 

42448.3242 

TOTAL TEMPERATURE (GAS) 

1305.5736 

1371.3395 

1371.3395 

STATIC TEMPERATURE (GAS) 

1236.6405 

1329.2931 

1354.6053 

STATIC DEMSITY(GAS) 

.5231 

.5635 

.5862 

STATIC DENSITY (MIXTURE) 

.5231 

.5635 

.5862 

AXIAL UELOCITY 

447.3002 

431.7760 

428.0096 

ABSOLUTE UELOCITY 

4S5.3010 

733.2349 

465.727? 

RELATIUE UELOCITY 

995.1300 

663.90ES 


BLADE SPEED 

1101.6457 

1103.1218 

1106.0739 

TANG. COMP. OF AES. UEL. 

212.7102 

598.7990 


TANG. COM P. OF REL. UEL. 

888.9355 

504.322? 


ACOUSTIC SPEED 

1735.7243 

1780.9766 

1780.9779 

ABSOLUTE MACH NUMBER 

.2854 

.4184 

.2615 

RELATIUE MACH NUMBER 

.5733 

.3763 


FLOW COEFFICIENT 

.3810 

.3678 

.3645 

FLOW AREA 

.0500 

.0481 

.0466 

ABSOLUTE FLOW ANGLE 

25.4331 

54.2058 

23.2179 

RELATIUE FLOW ANGLE 

63.2891 

49.4315 


INCIDENCE 

9.1291 

15.3658 


DEUIATION 


4.3315 

6.3479 

DIFFUSION RATIO 


2.0629 

2.6795 

MOMENTUM THICKNESS 


.0503 

.0849 

OMEGA (GAS) 


.08026 

.11432 

OMEGA (TOTAL) 


.08026 

.11431 
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******************** INITIAL FLOW COEFFICIENT= .350 (ISTAGE= 15 ) ******************** 


STAGE PERFORMANCE AFTER INTER-STAGE ADJUSTMENT! JPERFM=2) 
STAGE TOTAL PRESSURE RATIO= 1.16952' 

STAGE TOTAL TEMPERATURE RATIO= 1.0503? 

STAGE ADIABATIC EFFICIENCY= .83316 


**STAGE INLET** 

**STAGE OUTLETS* 

**STAGE OUTLET** 


(BEFORE INTER- 
STAGE ADJUST- 

(AFTER INTER- 
STAGE ADJUST- 


MENT) 

MENT) 

XU= .00323 

.00323 

.00323 

XLI= 0 

0 

0 

XWW= 0 

0 

0 

XUT= 0 

0 

0 

XAIR= .9367? 

.9967? 

.S967? 

XMETAN= 0 

0 

0 

XC-AS 1.00000 

1.00000 

1.00000 

UMASS= 0 

0 

0 

WWMASS= 0 

0 

0 

WTMASS= 0 

0 

0 

AMASS= 11.65843 

11.65843 

11.65843 

CHMASS= 0 

0 

0 

UMASS= .03775 

.03775 

.03775 

GMASS= 11.69618 

11.69618 

11.69618 

TMASS= 11.69618 

11.69618 

11.69618 

US= .00323 

.00323 

.00323 

RHOA= .54575 

.56445 

.58729 

RHOM= . 0G8S5 

.56335 

.58614 

RHOG= .52310 

. 56335 

.58614 

TG= 1305.57364 

1371.33948 

1371.33948 

TW= 579.85191 

579.85191 

579.85191 

TWW= 513.70000 

0 

513.70000 

P= 38014.20544 

45028.22772 

44458.28098 

TB= 865.30796 

0 

879.60912 

TDEW= 559.90494 

565.98312 

565.98312 
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*-*-*-s*<-**fta**»*»#*:-*** INITIAL FLOW COEFFICIENT 3 .350 (STAGE=16 ) ******************* 

STAGE TOTAL PRESSURE RATIO 3 1.17690 

STAGE TOTAL TEMPERATURE RATIO 3 1.05353 
STAGE ADIABATIC EFFICIENCY 3 .81490 

STAGE FLOW COEFFICIENT 3 .3S5 : 


AXIAL UELOCITY 3 428 
ROTOR SPEED 3 ! 174. 10 

.05 



*ROTOR INLET* 

*ROTOR OUTLET* *STATOR OUTLET* 

TOTAL PRESSURE 

44458.2810 

53428.4011 

52322.9747 

STATIC PRESSURE 

42448.0138 

47823.3978 

50698.5131 

TOTAL TEMPERATURE (GAS) 

1371.3395 

1444.7504 

1444.7504 

STATIC TEMPERATURE (GAS) 

1354.7327 

1403.2506 

1432.8059' 

STATIC DENSITY(GAS) 

.5861 

.6376 

.6619 

STATIC DENSITY (MIXTURE) 

.'5861 

.6376 

.6619 

AXIAL UELOCITY 

428.0530 

402.0117 

387.2411 

ABSOLUTE UELOCITY 

4S5.7750 

736.4269 

395.0845 

RELATIUE UELOCITY 

1016.9302 

633.4593 


BLADE SPEED 

1106.0739 

1106.5659 

I 

TANG. COMP. OF AES. UEL 

. 183.6220 

617.0180 


TANG. COMP. OF REL. UEL 

. 922.4520 

489.5480 


ACOUSTIC SPEED 

1778.4451 

1828.9923 

1828.9732 

ABSOLUTE MACH NUMBER 

.2619 

.4069 

.2160 

RELATIUE MACH NUMBER 

.5718 

.3500 


FLOW COEFFICIENT 

.3646 

.3424 

.3298 

FLOW AREA 

.0466 

.0456 

.0456 

ABSOLUTE FLOW ANGLE 

23.2179 

56.9142 

11.4328 

RELATIUE FLOW ANGLE 

65.1069 

50.6075 


INCIDENCE 

8.7669 

16.5142 


EEUIATION 


5.2075 

8.4028 

DIFFUSION RATIO 


2.1718 

3.1704 

MOMENTUM THICKNESS 


.0522 

.1420 

OMEGA (GAS) 


.07298 

.19740 

OMEGA (TOTAL) 


.07298 

. 19740 


270 



**»*»*»#******»*»**» INITIAL. FLOW COEFFICIENT= .350 (ISTAGE= 1G ) 


STAGE 

PERFORMANCE AFTER 

INTER-STAGE ADJUSTMENT ( JPERFM=2 ) . 

STAGE 

TOTAL PRESSURE RATIO= 1.17S90 


STAGE 

TOTAL TEMPERATURE 

RATIO= 1.05353 


STAGE 

ADIABATIC EFFICIENCY= .81490 



**STAGE INLET** 

**STAGE OUTLET** 

**STAGE OUTLET** 



(BEFORE INTER- 

(AFTER INTER- 



STAGE ADJUST- 

STAGE ADJUST- 



MENT! 

MENT) 

XU= 

.00323 

.00323 

.00323 

xw= 

0 

0 

0 

xww= 

0 

0 

0 

XWT= 

0 

0 

0 

XAIR= 

.9367? 

.99677 

.99677 

XMETAN 

= 0 

0 

0 

XGAS 

1.00000 

1.00000 

1.00000 

WMASS= 

0 

0 

0 

UWMASS 

= 0 

0 

0 

WTMASS 

= 0 

0 

0 

AMASS= 

11.65843 

11.65843 

11.65843 

CHtlASS 

;= o 

0 

0 

UMASS= 

.03775 

.03775 

.03775 

GMASS= 

11.69618 

11.69618 

11.69618 

TMASS= 

0 

0 

11.69618 

WS= 

.00323 

.00323 

.00323 

RHOA= 

.60765 

.63866 

.66317 

RHOM= 

. 06865 

.63741 

.66187 

RHOG= 

.58614 

.63741 

.66187 

TG= 

1371.33948 

1444.75041 

1444.75041 

TW= 

579.85191 

579.85191 

579.85191 

TWW= 

513.70000 

0 

513.70000 

P= 

44458.28093 

53428.40108 

52322.97472 

TE= 

879.60912 

0 

894.99536 

TDEW= 

565.98312 

572.63516 

572.63516 


***** »*»*•*****«»*#* 
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**»*»*««** OUERALL PERFORMANCE »***«***« 

INITIAL FLOW COEFFICIENT= .350 

CORRECTED SPEED= 9492.1 1.000 FRACTION OF DEIGN CORRECTED SPEED 

INITIAL WATER CONTENT (SMALL DROPLET )= .010 
INITIAL WATER CONTENT (LARGE DR0PLET)= 0 
INITIAL WATER CONTENT(TOTAL)= .010 
INITIAL RELATIUE HUMIDITY= .0 PER CENT 
INITIAL METHANE CONTENT= 0 

COMPRESSOR INLET TOTAL TEMPERATURE= 518.70 

COMPRESSOR INLET TOTAL PRESSURE= 2118.80 

CORRECTED MASS FLOW RATE OF MIXTURE=234. 147 

CORRECTED MASS FLOW RATE OF GAS PHASE 231. 80G 

OUERALL TOTAL PRESSURE RATIO=24.7180 

OUERALL TOTAL TEMPERATURE RATI0=2.7853 

OUERALL ADIABATIC EFFICIENCY= .7873 

* *»«««&& PERFORMANCE OF FAN.LPC.HPC *»**»***** 



GAS PHASE 

STAGNATION 

STAGNATION 

ADIABATIC 


CORRECTED 

PRESSURE 

TEMPERATURE 

EFFICIENCY 


MASS FLOW 

RATIO 

RATIO 


FAN 

231.8080 

2.3433 

1.3208 

.8188 

LPC 

58.7342 

2.7193 

1.3913 

.8048 

HPC 

24.G731 

3.8790 

1.5180 

.8704 
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Test Case No. 3 

(1.0 Large Droplet Ingestion, No Mass Transfer, 
Overall Performance Only Printout) 
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MS (HUMBER OF STAGE)=16 
PERFORMANCE AT MEAN 
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ETARD(I) .333 .333 .331 .885 .333 .873 .350 .887 .350 .310 .334 .324 .337 .328 .323 .334 



***************************** INPUT DAT A *««**••**•••••**••••••*•••*** 


FNF( FRACTION OF DESIGN CORRECTED SPEED) =1.000 

XDIN( INITIAL WATER CONTENT OF SMALL DROPLET )= 0 

XDDIN( INITIAL WATER CONTENT OF LARGE DROPLET )= .010 
RHUMID( INITIAL RELATIUE HUMIDITY)= .00 PER CENT 
XCH4( INITIAL METHANE CONTENT )= 0 

TOG (COMPRESSOR INLET TOTAL TEMPRATURE OF GAS)= 518.70 
TOW (COMPRESSOR INLET TEMPERATURE OF DR0PLRET)= 513.70 
P0( COMPRESSOR INLET TOTAL PRESSURE)=211G.80 

DIN( INITIIL DROPLET DIAMETER OF SMALL DROPLET )= 20.0 

DDIN( INITIAL DROPLET DIAMETER OF LARGE DROPLET )= GOO.O 

FND(DESIGN ROTATIONAL SPEED )= 9492.1 

DSMASS(DESIGN MASS FLOW RATE)= 25.5000 

BYPASS RATIO = 1.0050 

COMPRESSOR INLET TOTAL TEMPERATURE (GAS PHASE) 518.70 R 
COMPRESSOR INLET TOTAL PRESSURE=2116.80 LB/FT**2 

PREB( PERCENT OF WATER THAT REBOUND AFTER IMPINGEMENT)= 50.0 PERCENT 
ROTOR SPEED= 9492.1 RPM 

CORRECTED ROTOR SPEED= 9492.1 RPM( 100.0PER CENT OF DESIGN CORRECTED SPEED) 
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STAGE PERFORMANCE 


FAIO 

STAGE 

PRATIO 

TRATIO 

ETA 

XU 

xw 

XUW 

XWT 

TG 

TI4 

.340 

1 

1 . 3790 

1.1113 

.8645 

.0000 

0 

.0100 

.0100 

518.70 

513.70 

.340 

2 

1.3274 

1 . 0983 

.8560 

.0000 

.0043 

.0057 

.0100 

576.41 

513.70 

.340 

3 

1.2474 

1.0827 

.7848 

.0000 

.0068 

.0032 

.0100 

633.05 

522.65 

.340 

4 

1.1775 

1.0S05 

.7836 

.0000 

.0058 

0 

.0058 

685.39 

529.49 

.340 

5 

1.2033 

1.0G04 

.8892 

.0000 

.0058 

0 

.0058 

726.86 

537.90 

.340 

6 

1.18G9 

1.0592 

.'8349 

.0000 

.0058 

0 

.0058 

770.77 

547.65 

.340 

7 

1.1G73 

1.0502 

.8836 

.0000 

.0058 

0 

.0058 

816.42 

557.26 

.340 

8 

1.1835 

1 . 0G49 

.7808 

.0000 

.0058 

0 

.0058 

857.40 

566.25 

.340 

a 

1.1531 

1.0440 

.9182 

.0000 

.0058 

0 

.0058 

913.00 

576.60 

.340 

10 

1.2477 

1.0701 

.8997 

.0000 

.0058 

0 

.0058 

953.16 

585.87 

.340 

11 

1.2517 

1.0701 

.9050 

.0000 

.0058 

0 

.0058 

1019.97 

598.81 

.340 

12 

1.2325 

l.OGGO 

.8858 

.0000 

.0058 

0 

.0058 

1091.50 

615.84 

.340 

13 

1.1878 

1.0573 

.8698 

.0000 

.0058 

0 

.0058 

1163.52 

625.63 

.340 

14 

1.2123 

1 . 0605 

.8741 

.0000 

.0058 

0 

.0058 

1230.16 

634.85 

.340 

15 

1.1G91 

1.0502 

.8409 

.0000 

.0058 

0 

.0058 

1304.61 

645.28 

.340 

1G 

1.1777 

1.0534 

.8219 

.0000 

.0058 

0 

.0058 

1370.12 

654.94 


i 



********** OUERALL PERFORMANCE ******** 

INITIAL FLOW COEFFICIENT= .340 

CORRECTED SPEED= 9492.1 1.000 FRACTION OF DEIGN CORRECTED SPEED 

INITIAL WATER CONTENT (SMALL DROPLET )= 0 

INITIAL WATER CONTENT (LARGE DROPLET )= .010 
INITIAL WATER CONTENT ( TOTAL )= .010 
INITIAL RELATIUE HUMIDITY= .0 PER CENT 
INITIAL METHANE CONTENT= 0 

COMPRESSOR INLET TOTAL TEMPERATURE= 518.70 

COMPRESSOR INLET TOTAL PRESSURE= 2116.80 

CORRECTED MASS FLOW RATE OF MIXTURE=229. 012 

CORRECTED MASS FLOW RATE OF GAS PHASE 226.721 

OUERALL TOTAL PRESSURE RATIQ=23.7528 

OUERALL TOTAL TEMPERATURE RAT I 0=2. 7824 

OUERALL ADIABATIC EFFICIENCY= .7747 

********** PERFORMANCE OF FAN.LPC.HPC ********** 



GAS PHASE 

STAGNATION 

STAGNATION 

ADIABATIC 


CORRECTED 

PRESSURE 

TEMPERATURE 

EFFICIENCY 


MASS FLOW 

RATIO 

RATIO 


FAN 

226.7215 

2.2834 

1.3214 

.7894 

LPC 

56.9264 

2.7016 

1.3907 

.8006 

HPC 

24.8488 

3.8505 

1.5141 

.8685 
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DISTRIBUTION LIST 
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DISTRIBUTION LIST 


GRANT NAG 3-204 


NASA- Lewis Research Center 
Attn : 

21000 Brookpark Road 
Cleveland, OH 44135 


Fluid Mechanics & Acoustics Division 
Fan and Compressor Branch 

C. L. Ball 
L. Reid 

D. M. Sandercock 
N.T. Musial 
L.E. Macioce 
L.H. Fishback 
J.C. Marek 
A.J. Strazisar 
J.R. Wood 

NASA Lewis Research Center 
Attn: R.J. Steinke (M.S. 5-9) 

21000 Brookpark Road 
Cleveland, OH 44135 

NASA Lewis Research Center 
Attn: S. Szabo (M.S. 500-302) 

21000 Brookpark Road 
Cleveland, OH 44135 

NASA Scientific and Technical 
Information Facility 
Attn: Accessioning Department 

P.0. Box 8757 

Balt. /Wash. International Airport 
MD 21240 

E.E. Bailey 
AFAPL/DO 

Wright Patterson AFB, OH 45433 

NASA Lewis Research Center 
Attn: Library (M.S. 60-3) 

21000 Brookpark Road 
Cleveland, OH 44135 

NASA Lewis Research Center 
Attn: Report Control Office (M.S. 5-5) 

21000 Brookpark Road 
Cleveland, OH 44135 


Quantity 


M.S. 5-3 1 
M.S. 5-9 1 
M.S. 5-9 1 
M.S. 5-9 1 
M.S. 5-9 1 
M.S. 500-318 1 
M.S. 301-4 1 
M.S. 501-10 1 
M.S. 86-6 1 
M.S. 5-9 1 
M.S. 5-9 1 


3 


1 


25 


1 


2 


1 
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Quantity 

NASA Headquarters 
Attn: RTP-6G. Banerian 


1 

Washington, D.C. 20546 



U.S. Army Applied Technology Laboratories 
Director Applied Technology Laboratory 
Attn: DAVDL-EU-TA, John White 

Fort Eustis, VA 23604 

(AVRADCOM) 

1 

NASA-Langley Research Center 
Attn: S.J. Morris 

M.S. 249B 

1 

Hampton, VA 23665 



Headquarters 

Attn: E.E. Bailey, AFWAL/NASA-PO 


1 

R.P. Carmichael ASD/XRHI 


1 

S. Kobelak, AFWAL/POTX 


1 

A.J. Wennerstrdm, AFWAL/POTX 


1 

M. A. Stibich, AFWAL/POTX 


1 

Wright-Patterson AFB, OH 45433 



Naval Air Systems Command 
NASAIR/52022 
Attn: R.A. Retta 

Technical Support Branch 
Washington, D.C. 20362 


1 

U.S. Navy Ship/Engineering Center 
Code 6141 


1 

Attn: G.L. Graves 

Washington, D.C. 20362 



Naval Air Propulsion Center 
Attn: V. Labosky 

PE-7 

1 

J. Pichtelberger 

PE-7 

1 

P. Piscopo 

PE-42 

1 

Trenton, NJ 08628 



Pratt & Whitney Aircraft 
Government Products Division 



Attn: W.R. Alley 


1 

J. Brent 


1 

R.E. Davis 


1 

J. A. Fligg 


1 

B.A. Jones 


1 

R.W. Rockenbach 


1 

H.D. Stetson 


1 

P.0. Box 2691 
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Quantity 


Pratt & Whitney Aircraft 
Attn: T.J. Gillespie 
N.T. Monsarrat 
R.E. Pallatine 
A.W. Stubner 
H.D. Weingold 
W.M. Foley (UTRC) 

Library (Comm. Prod. Div.) 
Library (UTRC) 

D.J. Hopwood 
400 Main Street 
East Hartford, CT 06108 

Detroit Diesel Allison Division, GMC 
Attn: R.F. A1 verson 

J.L. Bettner 
R.L. Jay 
R.E. Riffel 
P. Tramm 
Library 

Department 8894, Plant 8 
P.0. Box 894 
Indianapolis, IN 46206 

Northern Reserach and Engineering 
Attn: K. Ginwala 

39 Olympia Avenue 
Woburn, MA 01801 

Genreal Electric Company 
Aircraft Engine Business Group 
Attn: J.F. Klapproth 

C. C. Koch 
J.W. McBride 
Marlen Miller 

D. E. Parker 
D. Prince 
L.H. Smith 

Technical Information Center 
J.S. Keith 
D.C. Wisler 
Cincinnati, OH 45215 

General Electric Company 
Attn: A. Bryans 

F.F. Ehrich 
L.H. King 
R.E. Neitzel 
1000 Western Avenue 
Lynn, MA 01910 


E2H 1 

E2H 1 

E2H 1 

E2H 1 

E2H 1 

1 

1 

1 

E2H 1 


U-28 1 

U-28 1 

W-16 1 

W-16 1 

U-27 1 

S-5 1 


1 


K-221 1 

H-4 1 

0-13 1 

K-69 1 

H-4 1 

H-4 1 

H-4 1 

N-32 1 

H-4 1 

H-4 1 


M.Z. 24048 1 
M.Z. 24505 1 
M.Z. 240GF 1 
M.Z. 24502 1 
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Curtiss-Wright Corporation 
Wright Aeronautical 
Attn: R. Cole 

S. Lombardo 
Wood- Ridge, NJ 07075 

Garrett Turbine Engine Company 
Attn: P.R. Dodge 

W.L. Blackmore 
W.F. Waterman 
J.R. Switzer 
Librarian 
P.0. Box 3217 
Phoenix, AZ 85010 

Ai Research Manufacturing Company 
Attn: R. Carmody 

R. Jackson 
L.W. Pearson 
Library 

2525 West 190th Street 
Torrance, CA 90509 

Union Carbide Corporation 
Nuclear Division 

Oak Ridge Gaseous Diffusion Plant 
Attn: G.B. Boroughs, K 1401 

P.0. Box P 

Oak Ridge, TN 37830 

AVCO Corporation 
Lycoming Division 
Attn: Richard Ainsworth 

Library 

550 South Main Street 
Stratford, CT 06497 
\ 

Teledyne, CAE 
Attn: Eli H. Benstein 

Howard C. Walch 
1330 Laskey Road 
Toledo, OH 43612 

International Harvester Co. 

Solar Turbine International Group 
Attn: P.A. Pitt 

J. Watkins 
P.0. Box 80966 
San Diego, CA 92138 



Quantity 


Goodyear Atomic Corporation 

Attn: C.O. Langebrake 1 

Box 628 

Piketon, OH 45661 


Hamilton Standard Division of 
United Technologies Corporation 
Attn: Carl Rohrback, Chief, 

Aerodynamics & Hydrodynamics M.S. 1 A- 3-6 1 

Windsor Locks, CT 06096 

Westinghouse Electric Corporation 
Combustion Turbine System Division 

Attn: S.M. DeCorso M.S. A703 1 

P.0. Box 251 - (Lab 101) 

Corcordvi 1 le, PA 19331 

Eaton Reserach Center 

Attn: Librarian 1 

P.0. Box 766 
Southfield, MI 48037 

Williams International 

Attn: R.A. Horn, Jr. 1 

Ronald Pampreen 1 

P.0. Box 200 
Walled Lake,' MI 48088 

Mechanical Technology Incorporated 1 


Attn: L. Chelko 

968 Albany-Shaker Road 
Latham, NY 12110 

Chrysler Corporation 1 

Research Office 

Department 9510 

Attn: Library 

P.0. Box 1118 

Detroit, MI 48288 

Elliott Company 

Attn: John W. Schlirf 1 

Vice President of Engineering 
Jeannette, PA 15644 

Caterpillar Tractor Company 1 

Attn: J. Wiggins 

Research Dept., Technical Center, Bldg. F 
100 N.E. Adams Street 
Peoria, IL 61629 
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Quantity 


Boeing Aerospace Co. 

Attn: W.C. Swan 

A.D. Welliver 
P.0. Box 3999 
Seattle, WA 98124 

McDonald Douglas Aircraft Company 
Attn: Dr. Albert C. Munson - 3557 

3855 Lakewood Blvd. 

Long Beach, CA 90801 

Lockheed Missile and Space Company 
Attn: Technical Information Center 

Dept. 52-50, Bldg. 106 
P.0. Box 504 
Sunnyvale, CA 94088 

California Institute of Technology 
Attn: Professor Duncan Rannie 

Dr. Frank Marble 
1201 East California Blvd. 

Pasadena, CA 91109 

Iowa State University of Science 
and Technology 

Attn: Professor G.K. Serovy 

Dept, of Mechanical Engineering 
P.0. Box 1204 
Welch Avenue Station 
Ames, I A 50010 

Massachusetts Institute of Technology 
Attn: Dr. J. McCune 

Cambridge, MA 02139 

Univeristy of Notre Dame 
Attn: Engineering Library 

Notre Dame, IN 46556 

Penn State University 
Department of Aerospace Engineering 
Attn: Prof.. B. Lakshminarayana 

233 Hammond Building 
University Park, PA 16802 

Texas A & M University 

Department of Mechanical Engineering 

Attn: Dr. Meherwan P. Boyce 

P.0. Box 3222 

Bryan, TX 77801 


M.S. 40-51 1 

M.S. 41-52 1 



1 


1 


205-45 T 

205-45 1 


1 


1 


1 


1 


1 
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Quantity 


University of Tennessee Space Institute 

Attn: Dr. M. Kurosaka 1 

Dr. J.' Caruthers 1 

Tullahoma, TN 37388 

University of Delaware 

Attn: Prof. Barry Seidel 1 

Dept, of Mech. & Aero. Engrg. 

Newark, DE 19711 

Purdue University 

Attn: S.N.B. Murthy . 1 

C.M. Ehresman 1 

School of Mechanical Engineering 

West Lafayette, IN 47907 
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